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Summary 


The nonplanar quasl-vortex-lattice method is applied to the cal- 
culation of lateral-directional stability derivatives of wings with 
and without vortex-lift effect. Results for conventional configura- 
tions and those with winglets, V-tail, etc. are compared with avail- 
able data. All rolling moment derivatives are found to be accurately 
predicted. The prediction of side force and yawing moment derivatives 
for some configurations is not as accurate. Causes of the discrepancy 
are discussed. A user’s manual for the program and the program listing 
are also included. 
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1. List of Symbols 


A 

b 

c 


C 



r 


G(x) 


aspect ratio 
wing span 
reference chord 

leading-edge suction parameter defined in Eqn. (21) 
induced drag coefficient 
rolling moment coefficient 
lift coefficient 

pitching moment coefficient about y-axis 
yawing moment coefficient 
lifting pressure coefficient 
tip chord 
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33 

3Gy 

- 

00 

1 c» 

■ 

00 

CO 

= BC /3(|f-) 

00 

tip suction parameter defined in Eqn. (24) 



I cr 


i, j. k 
M, M 
n 

w 

P 

q 


r 



U, V, W 
V 

00 

X, y, z 


K^(y) 

Zj.(x,y) 

a 

3 


X 


X 


unit vectors in the positive x, y and z directions 

freestream Mach number 

unit normal vector to the wing surface 

roll rate 

pitch rate 

freestream dynamic pressure 
yaw rate 
position vector 

sectional leading-edge suction coefficient 
induced velocity vector 

induced velocity normal to the wing plane 

freestream velocity components in the x, y, z directions 

freestream velocity 

rectangular coordinate system with positive x-axis pointing 
downstream, positive y-axis pointing to the right and 
positive z-axis pointing upward. See Figure 1. 

x-coordinate of leading edge 

camber surface ordinate 

angle of attack 

sideslip angle 

streamwise vortex density 

spanwise vortex density 

sectional circulation 

leading-edge sweep angle 

dihedral angle 

wing taper ratio 
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Subscripts 


a ant isymme tr ical 

s synimetrical 



2, Introduction 

Most existing methods for calculating lateral-directional stability 
derivatives are based on lifting-line type theory with or without empir- 
ical corrections (Refs. 1-5). These methods form the basis for some 
handbook calculations, such as in the USAF Stability and Control Datcom. 
Although these methods provide a reasonable estimation of lateral-dir- 
ectional stability derivatives for conventional configurations, they are 
not applicable to complex planforms of variable sweep angles, with wing- 
lets or with vertical fins, and to planforms exhibiting edge vortex sep- 
aration. For these non-conventional configurations, application of a 
lifting-surface theory would be more appropriate. 

In this report, the application of the quasi-vortex-lattice method 
(QVLM) of Reference 6 to calculating lateral-directional stability deriv- 
atives of arbitrary wing configurations will be described. Potential 
flow theory will be assumed. The effect of vortex separation along wing 
edges will be accounted for through Polhamus’ method of suction analogy 
(Ref. 7). Earlier application of the present method to simple wing-body 
configurations at low angles of attack was reported in Reference 8. 
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3. Theoretical Development 

It is assumed that the flow field is governed by the Prandtl-Glauert 
equation. Thickness effect will not be included in the formulation. 

In Section 3.1, the general boundary condition to be satisfied on 
the wing surface will be derived. The present method is very much de- 
pendent on the accurate calculation of streamwise vortex density distri- 
bution (y^) and edge suction forces. These will be the subject of dis- 
cussion in Section 3.2. From Sections 3.3 to 3.5, various contributions 
to forces and moments in lateral-directional motion will be indicated. 

All calculations will be done in body axes. The conversion to stability 
axes can be made through the use of a set of formulas to be given in 
Section 3.6. 

3 . 1 Boundary Condition 

It is assumed that the sideslip angle (3) is small. The freestream 
velocity vector (V^) is then given by 


V = ut + Vj + 

(1) 

U “ V cosacosB - V cosa 

oo *^00 

(2) 

V = -V 3 
00 

(3) 

W = V sinacos6-V sina 

oo 00 

(4) 


Let 0 ) be the angular velocity of the wing based on the primed axes system 
(see Figure 1) and ^ be the position vector of some point on the wing. 
Using the conventional notation for roll rate (p), pitch rate (q) and 
yaw rate (r) , it follows that the linear velocity (v*) associated with 
the wing angular motion is given by 
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( 5 ) 


v’ = -(p^ + qj + r^) X + z’^) 

= -i(qz» ~ y’r) + j(pz’ - x»r) - k(py’ -qx’) 

To find the induced air velocity on the wing (based on xyz axes) due to 

w-motion, the sign of ^ and ^-components in Eqn. (5) must be reversed 

and x’ , y', z’ are to be replaced by -x, y, -z. It follows that 

V = x(-qz - yr) + J(“pz + xr) + ^(py + qx) (6) 

The sum of and v represents the total **freestream velocity.*’ The 

latter will produce normal velocity component (v^) to the wing plane. 

Before v can be calculated, the unit normal vector to the wing plane 
n 

must be detemined. Let z^(x,y) be the camber surface. Then, according 
to Figure 1, 

z = z^ + z^(x,y) + (y - y^)tan(j> (7) 

Introduce a function f(x,y,z) defined by: 

f(x,y,z) = z - z^ - z^(x,y) - (y - y^)tan(|) (8) 

Then the unit normal vector to the wing surface is given by: 


n = 
w 


Vf 

ivti 


9z 9z 

0 I / c 

X + (- 


3x 




taiKj)) ^ ^ 


J 3 z 2 


(9) 


3 z ; 

(-^ + tan<|)) 


9z 


9z 


If 


and 


can be assumed to be negligible in comparison with unity 


9 X 9y 

and tancj), respectively, Eqn. (9) can be simplified to be: 
n^ ^ “-sinc|>j + coS(j>k 


( 10 ) 


Using Eqns. (1), (6) and (9), the normal velocity component (v^) can 
now be calculated as : 


V 

n 

V 


(cont’d next page) 


V *n + vn 
00 w w 
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Figure !• Definition of Axes System 



Figure 2. Decomposition of Lifting Force on a Nonplanar Wing 



-cosa 


+ sina 


3z 


3x 


/ 


+ gsin<J) + ^ (zsin4> + ycos^) - 


dz 2 dz 

1 


+ tan(j>) 


^ xsin(|) + ^ xcos(Ji (11) 

00 oo 

In Eqn. (11), n from Eqn. (10) is used to simplify the expression 
w 

associated with angular motion. The first term in Eqn. (11) can be 
recognized as the boundary condition for symmetrical loading at a 
given angle of attack. Eqn. (11) can be written in nondimens ional form: 


dz 

c 

V -cosa r — 
n 8x 


+ sina 


j 3 ^ 


3z i 


+ 3sin(J) + V^'^j 2 sin<j) + 


V ““ X ” X 

cos^) - r sin<f)(:^y 2 ) + ^ cos(j>(-=y^) 


( 12 ) 


where 


2^ 

2V 

00 

rb 

2V 


(13) 


2V 


The normal velocity given by Eqn. (12) must be cancelled on the wing 
surface by using vortex distribution. This condition represents the 
boundary condition to be satisfied to find the loading. 

3.2 Edge Suction and Streamwise Vortex Density Distribution (y^) 

While the calculation of the spanwise vortex density distribution 
(Yy) is the first step in determining the sypwnetrical loading, it is 
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the streamwise vortex density distribution which is the basis for 
predicting the tip suction and the lateral-directional aerodynamic 
characteristics of a wing. The calculation of is made with the QVLM 
(Ref. 6) by satisfying the symmetrical boundary condition (the first term 
is Eqn. (12)) and will not be discussed here. The leading-edge suction 
has also been accurately predicted by the QVLM. 

To determine y^ distribution and the tip suction, the following 
expression for the conservation of vorticity will be used: 


1 = 0 

8x ay 

By integration, Eqn. (14) can be solved for (Ref. 8): 

^ ar(x,y) 


■x ay 


r(x,y) = 


-I 


*j(y) 


Y„(x' ,y)dx' 


(14) 

(15) 

(16) 


In Reference 8, a trigonometric interpolation formula was derived to 
calculate the derivative in Eqn. (15). The tip suction can also be 
determined accurately. For more detail. Reference 8 should be consulted, 
3.3 Forces and Moments in Sideslipping Flight 

The incremental AC^ due to sideslipping arises from the following 
sources : 


(1) Incremental pressure force due to geometric dihedral. This 
contribution comes from the second term in Eqn. (12). For 
a flat wing, this contribution will be zero. 

The predicted spanwise vortex density (y^) will interact 
with U-component of the freestream to produce a lifting pressure 
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AC * 2y cosa 


(17) 


(2) Interaction of sideslipping velocity with in 

nondimens ional form, this will contribute to a AC amounting 

P2 

to 


AC = 23y 
P2 ’x 


(18) 


on the right wing in positive lift. On the left wing, AC 

^2 

is negative, thus creating a rolling moment. 

(3) Effect of wake nonalignment with freestream. In the usual 

way of calculating the loading, the flat wake has been assumed 
to be in the positive x direction. According to Eqn. (18) , the 
wake trailing vortices (y^) will then interact with the side- 
slipping velocity to produce positive lifting pressure on the 
right wake. This must be cancelled by introducing a y^ dis- 
tribution in the wake equal to 3 y j where y in the wake is 

X X 

equal to its value at the trailing edge. This is similar to 

the results derived by Rubbert by perturbation expansion 

(Ref. 9) of the governing equation. 

This effect will produce downwash on the right wing, thus producing 

negative y^ distribution. It will create a AC^ similar to that given 

by Eqn. (17). This refinement was not made in Reference 8, 

Note that AC^ produced by the aforementioned sources are anti- 

symmetrical. The resulting rolling moment, and hence the dihedral effect 

(C ), can be calculated in a straightforward manner. The lifting pres- 
3 

sure is taken to be acting normal to the planform, as illustrated 

in Figure 2. It follows that a side force will be produced, which will 
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also generate a yawing moment. The rolling moment due to the element 
can be seen to be* 


dJt = -qAC dsdx(z- sin(|) + y-cos<t>) 


(19) 


p ^-1— y 

where q is the freestream dynamic pressure. Integration of Eqn. (19) 
in the chordwise and spanwise directions will yield the total rolling 
moment, and hence the dihedral effect. 

The side force and yawing moment due to sideslip for a wing alone 
are contributed from the following sources: 

(a) Contribution from the incremental pressure force due to geometric 
dihedral, as given by Eqn. (17). 

(b) Contribution from the change in the leading-edge suction. This is 
produced by the loading change discussed under Items (1) and (3) in 
this Section. 

According to Reference 6, the sectional leading-edge suction coef- 
ficient for combined symmetrical and antisyrametrical loadings can be 
calculated as: 


LE 


- /i - 


M cos A 


£ 


(C + C )' 
s — a 

cos 


( 20 ) 


where C^ is the leading-edge singularity parameter for symmetrical load- 
ing defined as (Ref. 6): 


C = lim Y 
s x-^x, c 


j 


X - x^ 


( 21 ) 


and C is the corresponding parameter for antisyrametrical loading. The 
a 

positive sign in Eqn. (20) is for the right wing and the negative sign 
is for the left wing. It follows that the effective change in leading- 
edge suction due to sideslip is given by: 
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( 22 ) 


AS 


LE 


-i/r 


2 2 
M cos A, 


(+2C C ) 
~ s a 

2 , 

cos 


This suction force is normal to the leading edge, as shown in Figure 3, 
thus contributing to side force and yawing moment. 

(c) Contribution from the change in tip suction. According to Refer- 
ence 8, the local tip suction coefficient for the combined symmetr- 
ical and antisymmetrical loadings is given by 
27t(G + G 

- ^ (23) 

where G(x) is defined by 


G(x) 



(24) 


and is the total sectional circulation, c^ in Eqn. (23) is the tip 
chord length. It follows that 


AS 


t 


2tt(- 2G G ) 
s a 


(25) 


AS^ is also illustrated in Figure 3. 

(d) Contribution from the induced drag (Page 14-3, Ref. 10) 

The induced drag under S 3 mimetrical loading is assumed to act in the 

direction of freestream with sideslip. Hence, if C^^ is the induced drag 

i 

coefficient, the side force coefficient from this contribution will be 



The yawing moment can be computed from the induced drag distribution. 

3.4 Forces and Moments in Steady Rolling 

The roll damping derivative (C^ ) can be computed by integrating 
the antisymmetrical lifting pressure induced by the roll rate (see p-term 
in Eqn. (12)) multiplied by the spanwise moment arm. The moment arm used 
in Eqn. (19) is still applicable here. 


13 




The side force and yawing moment due to roll rate for a wing alone 
are contributed from the incremental pressure force, change in the leading- 
edge suction and change in the tip suction, similar to those discussed 
in Section 3.3 for the sideslip effects. 

3.5 Forces and Moments in Steady Yawing 

The incremental lifting pressure due to yaw rate consists of three 


components : 

(1) Due to yawing, a backwash ry is produced. This will interact with 
the symmetrical y to produce a lifting pressure equal to: 


-2 ^ 
V 


b 


(2) Due to yawing, a sidewash rxcos4> is produced on the wing plane. 


This will interact with the symmetrical y^ to produce a lifting 
pressure equal to: 




(28) 


(3) Incremental lifting pressure due to geometrical dihedral. This 
effect can be seen from the boundary condition in Eqn. (12) . 

Once the incremental antis 3 rmmetrical lifting pressure is obtained, 
the wing rolling moment due to yawing can be calculated immediately. 

The calculation of side force and yawing moment due to yaw rate 
follows the same procedures of computing the effects due to sideslip. 
This is because a wing in yawing can be regarded as being subjected 
to "variable sideslip" effect, since the sidewash on the wing plane 
(rx cos<J>) varies on the wing. 
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3.6 Conversion to Stability Axes System 

Once the stability derivatives are calculated on some body axes, 
it is desirable to transform them to values based on stability axes. 

The transformation formula have been derived elsewhere (page 192, Ref. 
11) and are listed below for convenience. The primed quantities in the 
following are based on body axes ( e in Ref. 11 is replaced with -a). 


C = C ' 

’'e >'6 


C = C ' cosa + C ’ sina 

y y y 

p p r 


C = c ' cosa — C ' sina 


y y 

r r 


(29) 

(30) 

(31) 

(32) 


C„ = C„ ’ cosa + C ' sina 

2 2 
C = C ' cos a + (C„ ' + C ')sinacosa + C 'sin a (33) 

H SL i n n 

p p r p r 

2 2 
C = C 'cos a + (C ' - C„ ')sinacosa - C 'sin a (34) 

i i ^ i n 

r r r p p 


C = C ' cosa - C. ' sina 

"s "b ‘b 


(35) 


2 2 
C = C ’cos a + (C ’ “ ’)sinacosa •- C. sin a (36) 
n n n Z £ 

P P r p r 


C = C ’cos a - (G^ ’ + C ’)sinacosa + C, ’sin^a (37) 
n n ^ £ n £^ 

r r r p p 
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4. Numerical Results and Discussions 


Some preliminary results without the refinement for high angles of 
attack have been reported in Reference 8. Good agreement in roll deriv- 
atives with Garner’s theoretical calculation (Ref. 12) for two wings at 
different Mach numbers has been demonstrated. In the following, additional 
results by the present refined program will be presented for conventional 
configurations and configurations with significant vortex-lift effect. 

4.1 Conventional Configurations without Significant Vortex-Lift Effect 
The experimental results for lateral-directional stability deriva- 
tives for four wings with NACA 0012 airfoil section were presented in 
Reference 1. The results for two wings are chosen for comparison here. 
Figure 4 presents the results for a rectangular wing of A = 5.16. It 
is seen that the present method predicts all rolling moment derivatives 
with good accuracy. However, C and C are not accurately predicted. 

To see whether this is true for other unswept configurations with diff- 
erent aspect ratio, the test data in Reference 5 for A = 2.61 are com- 
pared in Figure 5. Again, both C and C are overpredicted. This 

y n 

P P 

discrepancy indicates that both leading-edge and tip suction forces are 
not fully realized in the experiment, as has been assumed in the theory. 
This phenomenon has also been discussed by Garner in Reference 12. One 
possible way to solve this problem is to apply an edge suction correction 
factor. For the leading-edge suction, an empirical correction factor has 
been determined in Reference 13 as a function of airfoil geometry and 
Mach number. Experimental data showing the degree of leading-edge suction 
development can also be found in References 14 and 15. However, a syste- 
matic work on tip suction phenomena does not seem to exist. 
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Slight increase in with increasing in Figure 5 implies that 

1 pi 

partial vortex-lift effect may exist at the tip, 

The results for a 45-degree swept wing of A = 2.61 are presented in 

Figure 6. In this case, the vortex lift effect is assumed to exist along 

the leading edge, but not along the tip chord. This is evidenced from 

variation and experimental lift curve. Again, all rolling moment 
P 

derivatives are reasonably predicted, except at high lift coefficients. 
The prediction of side force and yawing moment due to sideslip and yaw 
rate is not accurate, probably because the effect of skin friction has 
not been included in the program. At zero C , the skin friction will 

Lt 

produce negative C . For the other derivatives, the effect of skin 
friction may or may not be important, depending on the location of 
moment center. 

Figure 7 presents the sideslip derivatives for a KC-135A wing-body 
model with and without winglets at different subsonic Mach numbers. The 
experimental results are given in Reference 16. It is seen that the di- 
hedral effect can be accurately predicted for this nonplanar wing-body 
configuration below the drag-divergence Mach number. The absolute level 

of C and C is not correctly predicted, because the body effect has 

"^3 ^3 

not been included. Of course, a body will contribute negative and 

C to the total derivatives. However, the trend with Mach number var- 
^3 

iation and the incremental effect produced by winglets are all correctly 
predicted. 

Finally, another nonplanar configuration - a V-tail is analyzed 
in Figure 8, The experimental data can be found in Reference 17. The 
lateral stability derivatives are presented as a function of geometric 
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dihedral angles. All predicted g-derivatives are seen to agree quite 
well with experimental data. 

4.2 Configurations with Significant Vortex-Lift Effect 

When edge vortex separation is present, its effect can be predicted 
by Polhamus' suction analogy (Ref. 7). In this method, the predicted 
leading-edge and tip suctions are assumed to be acting normal to the 
wing at the edges. 

A delta wing of A - 1.147 with sharp edges was tested and reported 
in Reference 18. The longitudinal aerodynamic characteristics are pre- 
sented in Figure 9 together with the predicted results. As can be seen, 
the method of suction analogy works quite well for this wing. The side- 
slip derivatives are compared in Figure 10. Again, C. is reasonably 

3 

well predicted. As for C , the effect of skin friction may explain 

the discrepancy. At high angles of attack, C reverses in sign. This 

^3 

may be due to the fact that at high angles of attack in sideslip, the 

windward leading-edge vortex is large and is pushed more inboard to 

affect a larger wing area on the right side as compared with the left 

vortex effect. Since the right side leading-edge vortex generates 

positive sidewash on the wing surface, the resulting positive side force 

will make C more positive as angle of attack is increased. This 
^3 

effect is not included in the present method. 

A more complicated configuration is illustrated in Figure 11, Test 
results of this configuration were reported in Reference 19. The longi- 
tudinal and lateral aerodynamic characteristics are presented in Figures 
12 and 13, respectively. In the present calculation, the outboard por- 
tion of wing which has a lower sweep angle and has dihedral is assumed 
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Figure 12 Comparison of Predicted Longitudinal Aerodynamic Characteristics 
of a Supersonic Cruise Configuration with Experimental Data at 
M=0.165 










not to develop vortex lift and has zero leading-edge suction. This 
assumption is plausible judged from the surface oil flow data in Ref- 
erence 19. Figure 12 shows that the present method predicts the 
longitudinal characteristics quite well, in particular, the trend 
with tip dihedral being correctly predicted. The theoretical method 
used in Reference 19 is the conventional vortex-lattice method (Ref. 20). 
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5 > Concluding Remarks 


The present nonplanar quasi-vortex-lattice method predicts quite 
well all rolling moment derivatives, which are, of course, contributed 
mainly by the wing in a complete configuration. To improve the predic- 
tion of other lateral-directional stability derivatives, the following 
refinements are needed: 

(1) to include the fuselage effect. 

(2) to include the effect of skin friction so that the prediction 
of C , C , C and C can be improved. 

Yo y n 

3 3 r r 

(3) to incorporate empirical correction factors for the degree of 
development of edge suction forces. 
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Appendix A 


Instruction on the Usage of the Nonplanar QVLM 
Program and Sample Input Data 



A,1 PROGRAM CAPABILITIES 


This program has the following main features: 

(1) It is applicable to nonplanar wing configurations, such as wing- 
winglet, wing-vertical fin combinations, etc. It can also analyze 
wing-tail or wing-canard configurations. However, the wake is 
assumed flat. 

(2) Up to five flap spans with different flap angles, including ail- 
erons, can be analyzed. 

(3) Arbitrary camber shapes defined at three spanwise stations or 
less are used in the program through cubic spline interpolation. 

(4) The program can calculate the S 3 rmmetrical loading, the rolling 
moment coefficient due to aileron deflections (for attached po- 
tential flow only) and lateral-directional stability derivatives. 

For the first two conditions, the bending moment distribution is 
also calculated. 

(5) The vortex-lift effect is calculated through the use of Polhamus’ 
suction analogy. 

(6) Ground effect analysis is made by the image vortex method. However, 
the ground effect on lateral-directional stability derivatives has 
not been correlated with the experimental data. 

A. 2 INPUT DATA FORMAT 


Group 1 

ICASE 
Group 2 

NCASE 

NGRD 


Format (6X, 14) , 1 card 

Number of cases to be run 
Format 2(6X, 14), 1 card 
User’s case number 

= 1 if the wing is in ground effect; = 0 otherwise. 
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Group 3 


Format (13A6) , 1 card 


TITLE 
(I = ; 
Group 4 
NC 


IWING 

NWING 

IWGLT 


Group 5 
NFP 

NJW(I),I-1 

NVRTX 


«v 


(I) Any words describing the case to be ruii. 

13) 

Format 8(6X, 14), 1 card 

Number of spanwise sections on the right wing (to be 
divided according to points of discontinuities in 
geometry, such as edges of flap spans). Limited to 7. 
(Avoid dividing planforms into too many sections). 

NC Numbers of vortex strips in each section plus one . 

There are NC numbers. Minimum value is 3. Maximum total 
number of vortex strips is 48. 

= Last wing vortex strip number if a tail is present, 

= 0, otherwise. 

= The numerical order of the last wing spanwise section, 
numbered from inboard sections. 

= 1 if a winglet to be represented by a tail is present. 

= 2 if the winglet (vertical fin) is placed inboard of 
wing tip. 

= 0 otherwise. 

Format 8(6X, 14), 1 card 

Number of flap spans. Limited to 5. 

NFP Numerical orders of flap spans among the spanwise sections. 
For clean or full-span flap configurations, set NFP = 1, 
NJW(I) = 1. 

The vortex strip number at and outboard of which the 
leading-edge vortex-lift effect is not included. If it is 
zero, total vortex-lift is assumed* 
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Group 6 


Format 8(6X, 14), 1 card 


NW(1) Numbers of vortex elements in chordwise sections, 

NW(2) divided along flap hinge line or winglet leading edge, 

as illustrated in sample input. 

ICAM = 1 if camber ordinates are to be read in, 

= 0 if camber slopes are defined manually in subprograms ZCR(X) , 
ZCI(X), ZCT(X) . The default is for a noncambered wing. 

IM Number of camber ordinates to be read in (limited to 12) ; 

arbitrary if ICAM = 0. 

1ST Number of stations at which camber ordinates are read in. 

Limited to 3. Station 2 must be consistent with the 
intermediate station defining twist (see Group 13) . 

ICAMT - 1 if the tail, winglet or vertical fin has camber. 

In this case, camber ordinates at wing root, wing tip 
and tail should be all read in. 

= 0, otherwise. 

*0mit group 7 if ICAM = 0 * 

Group 7 Format 8F10.6 

XT(I,J) X-coordinates at which camber ordinates are read in. 

Nondimensionalized with chord length. All X-coordinates 
are read in first. 

ZC(I,J) Camber ordinates at the corresponding X-locations . Non- 
dimens ionalized with chord length. 

The above are to be repeated 1ST times. Input root chord first. 
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Group 8 


Format 2(6X, I4) , 1 card 


LAT = 0 for symmetrical loading only 

= -1 for computing with aileron deflection. 

- 1 for computing lateral-directional stability 
derivatives. (Symmetrical loading is always calculated). 

NAL Numerical order of aileron span among the flap spans. 

( = 0 if LAT -1) 

Group 9 Format 8F10.6 

Corner-point coordinates of a spanwise section. 

XXL(l) L.E. X-coordinate of the inboard chord. 

XXT(l) T.E. X-coordinate of the inboard chord. 

YL(1) Y-coordinate of the inboard chord. 

XXL (2) L.E. X-coordinate of the outboard chord. 

XXT(2) T.E. X-coordinate of the outboard chord, 

YL(2) Y-coordinate of the outboard chord. 

ZS elevation of the spanwise section. 

DIHED dihedral angle in degrees for the section. 

Note . Group 9 is to be repeated NC times. With flaps or winglet, 

another NC cards are needed to describe the flap and the associated 
regions. The order of input is illustrated below. Panels with 
dihedral must be rotated to X-Y plane for geometric description. 




input order. 
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I 


NC=3 

NW(2)=0 


t 


NC*2 

NW(2)^0 




NC«2 

NW(2)=0 

IWGLT=0 

IWING^O 


Group 10 Format 8F10.6, 1 card 

AM Freestream Mach number. AM < 1. 

HALFSW Reference half wing area. 

GREF Reference chord. 

ALPCON An Indicator ( = 1. if C and C are to be computed . 

Xj tQ 

a a 

In this case, put flap angles to zero. = 0. otherwise) . 

DF(I) , flap angles in degrees, inboard flap span first. 

1=1, NFP 

Group 11 Format 3F10 . 6 , 1 card 

ALNM Number of angles of attack to be processed for the same 

configuration at the same Mach number. 

ALPI Initial angle of attack in degrees. 
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ALPINC Incremental angle of attack in degrees. 

Note . The above variables in Group 11 should be all zero if ALPCON = 1.0 
Group 12 Format 2F10.6, 1 card 

HEIGHT Ground height of 3/4 chord point of M.A.C., or other 
reference point, = 0. if NGRD = 0. 

ATT pitch attitude angle in degrees, = 0, if NGRD = 0. 

5^Group 13 must be omitted if ALPCON = 1.* 


Group 13 Format 7F10.6, 1 card 

TWISTl twist in degrees from root chord to an intermediate 

station, negative for washout. If TWISTl >99., the twist 
distribution and camber slope defined in Functions TWST 
& ZCDX will be used. 

'^IST2 twist in degrees from an intermediate station to tip 
chord, referenced to the intermediate station. = 0, if 
the intermediate station is the tip. 

YTW Y-coordinate of the intermediate station. 


RING root chord incidence angle in degrees. 

CAMLEl L.E. camber slope at the root chord. 

CAMLE2 L.E. camber slope at the intermediate station 

CAMLE3 L.E. camber slope at the tip chord. 

*Group 14 must be omitted if IWING = 0 


arbitrary 
if ICAM 1 


i 


Group 14 Format 3F10.6, 1 card 

TINC Tail incidence angle in degrees. 

HALFSH Tail half area. If the tail is to represent the winglet 

at the tip, put HALFSH = HALFSW. If the tail is a vertical 
fin inboard of wing tip, put HALFSH = fin area. 
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POS Winglet position indicator. Its numerical value is based 

on whether the winglet is attached to the wing first or 
second chordwise section, respectively. It is indicated 
below. If there is no winglet, it should be 0. 







If ICASE > 1, repeat Groups 2-14. 

Remarks ; 

(1) With the existing dimension for the array DQ(I,J) in the 
main program, a total of 140 vortex elements can be used. 

The minimum memory for execution is 55K (decimal) . 
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(2) Three working disk files are needed in execution. They are 
designated as (01) , (02) and (03) . 

A. 3 OUTPUT DATA FORMAT 

(1) First, the input data will be printed. 

HALFSW half wing area 

GREF reference chord 

(2) Vortex Element Endpoint Coordinates: 

(Xj^,Yj^,Zj^) coordinates of the inboard endpoint of a bound vortex 
element 

(X 2 ,Y 2 >Z 2 )coordinates of the corresponding outboard endpoint of a 
bound vortex element 

(3) Control Point Coordinates: 

One set of (XCP, YCP, ZCP) defines a control point location. 

(4) Sectional Pressure and Force Data 

XV percent chordwise location 

YV percent spanwise location (referred to half span) 

CP AC (with aileron deflections, AC on both left and 

P P 

right wings will be printed) . 

Y/S the nondimens ional y-coordinate of the spanwise station 

(referred to half span) 

CL Sectional lift coefficient 

CM sectional pitching moment coefficient about the y~axis 

CT sectional leading-edge thrust coefficient 

CDI sectional induced drag coefficient 

(5) The next group of output variables is for the attached potential 

flow. If ALPCON = 1., the lift and pitching moment coefficients 

will be C^ and C 
L m 

a a 
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The results to be used in the method of suction analogy are 
printed next. If ALPCON = 1 ^, the variables printed are used for 

a noncambered wing in the following formulas: 

2 , ^2 
= K sinacos a + (K ^ + K )sin acosa 

L p v,£e v,se 

C = C tana 

U , Lu 


X O O ^ 

p 2 ^e 2 se 

C = K sinacosa ^ ^ + K ^ sin a 7; h K sin a 7; 

m p C ^ v,£e C ^ v,se C 

^ ref ref ref 

If lateral-directional stability derivatives are calculated, 

results for both attached potential flow and vortex-separated 

flow will be printed, based on body and stability axes. The 

sideslip derivatives are in per radian. 

If rolling moment coefficient due to aileron deflection is cal- 
culated, it will be printed here. 

The last group of results is the bending moment distribution 


and the bending moment coefficient at the root chord. 



A. 4 Sample Test Case No. 1 
Input Data : 


li 0 

NASA TP-1163* KC-135A WITH WlNGLpT 

2 14 6 13 1 1 

lie 



3 

3 

1 

11 

3 

1 


0, 

0.8 

0.1 

0,9 

0.2 

1 . 

0.3 

0,4 

0,5 

0.6 

0.7 

0. 

0,01022 

0,0145 

0,00582 

0. 01878 

o?J 

1 . 

0,01947 

0,01946 

0,01855 

0.01744 

0,01458 

0, 

0.8 

0.1 

0,9 

0.3 

0.4 

0.5 

0.6 

0,7 

0. 

0,01022 

0,0145 

0,00582 

0,01878 

0. 

0,01947 

0,01946 

0,01855 

0,01744 

0,01458 

0. 

0.8 

0.1 

0,9 

k-' 

0.3 

0.4 

0,5 

0.6 

0.7 

0, 

0.0199 

0,01505 

0.01215 

0,557 

0.019 

-0,00435 

0.02U5 

0,023 

0,0237 

0.0241 

0,0233 

li?58P 

h.3 

10,133 

14,567 

IhfSl 

ihh 

8; 

75, 

-3,4365 

0, 

11,505 

14,053 

27,3 

0. 

7, 

13.161 

0. 

14,053 

209,25 

1.51 

0. 

27,3 

8.275 

0. 

15,102 

0. 

15,3902 

0, 

31,22 

0. 

75. 

0, 

—4. 

0 . 

209.25 

27.3 

20, 

2. 

0. 

0, 

0. 





1 


■k'k'^'k'kit^k-k-krk'k'k'k-k-k'k'kikir-k'k'k'ic'k'kic'k'k-k'k'kirir-kifit'k-ifir 

CASE NUMBER =10 

kc-k'k’k'A'kkc-ic^ic-kk-k-kkckeir'kir'kk'k-k'iciic-kititiie'k'kirkik-klritkitiie 

****.kkk^’k'kic-k'kk**ii-kirk^‘kiekicitk--k'kkiei(icirkitkrirk*-kir 

NASA TP-1163^ KC-135A WITH WINGLFT 

******-k******** 1 r*-Hrii*:*A****:-k**ir*-lr*it*-k*it* 


IMPUT DATA 


? 

14 

6 

1 3 

1 

1 



1 

1 

0 






3 

1 

3 

0 

1 

1 1 

3 

1 



-10.853000 

-3.436500 

0. 

10.133000 

11.505000 

27. 300000 

0. 

7.000000 

11.505000 

13.161000 

27.300000 

14.567000 

15.102000 

31.220000 

0. 

75.000000 

-3.436500 

0.557000 

0. 

11.505000 

14.053000 

27.300000 

0. 

7,000000 

13.161000 

14.053000 

27.300000 

15.102000 

1 5.390200 

31.220000 

0. 

75.000000 

0.500000209.250000 

8.275000 

0. 

0. 

1.000000 

1.510000 

0. 






0. 

0- 







0. 

0. 

27.300000 

2.000000 

n. 

0. 

0. 


-4.000000209.250000 

20.000000 





HALF SW= 0. 

.20925E 03 

CREF= 0.82750E 01 



*** CAMBER 

ORDINATES 

FOR THE ROOT SECTION 

★ * * 




X/C 

0. 

0. 10000 

0.20000 

0.30000 

0.40000 

0.50000 

0.60000 

Z /C 

0. 

0.01 450 

0.01878 

0.01947 

0.01946 

0.01855 

0.01 744 


0. 70000 

u. oOOOO 

0.90000 

1.00000 





0.01458 

(j . u 1 0 2 2 

0.00532 

0. 




*** CAMBER 

ORDINATES 

FOR THE INTERMEDIATE 

SECTION *** 



X/C 

0- 

0.10000 

0.20000 

0.30000 

0.40000 

0.50000 

0.60000 

2 /C 

n. 

0.01450 

0.01878 

0.01947 

0.01946 

0.01855 

0.01744 


0. 70000 

u, oOOOO 

0.90000 

1 . OOOOO 





0.0145O 

U.U1022 

0.00582 

0. 




*** CAMBER 

ORDINATES 

FOR THE TIP SECTION 

Ar ★ ★ 




X/C 

c. 

0.10000 

0.20000 

0.30000 

0. 40000 

0.50000 

0.60000 

z /c 

0. 

0.01 505 

0.01900 

0.02145 

0.02300 

0.02370 

0.02410 


0 • 70000 

U. oOOOO 

0.90000 

1.00000 





0.02330 

O.ul 990 

0.01215 

-0.00435 






VORTFX CLEMENT ENDPOINT COORDINATES= 


X1 

•1 0.3561 9 
-7.1 4A75 
-3.93331 
-9.77872 
-6.64072 
-3.50272 
-8.77890 
-5. 76805 
-2.75720 

-7.34216 
-4.51402 
-1 .685 88 
-5.54054 
-2,941 52 
-0.34250 
-3.464 39 
-1.12940 
1 . 205 59 
-1 .21782 
0.831 47 
2.88076 
1 .08653 
2.84278 
4.59902 
3.33311 
4.80365 
6.2741 9 
5.40926 
6.61 577 
7.82228 
7.21087 
8.18827 
9.1 6566 
8.64761 
9.44230 
10.23698 
9.64744 
10.31497 
10.98250 
11.61593 
12.33300 
1 3.05007 
12.05335 
1 2.69934 
13.34532 
1 2.72285 
13.26003 
13.79721 
1 3.49592 
13.90747 
14.31902 
14.16542 
14,46816 
1 4.77091 
-3.1 6899 
-1.43975 
0.28949 
-2.75247 
-1 .04080 
0.67088 
-2.03132 
-0.35005 
1.33121 
-0.99503 
0.64254 
2.28011 
0.30443 
1.88721 
3.46999 


X 2 

Y 1 

Y2 

-9, 77872 

0. 

0,76599 

-6.64072 

0. 

0.76599 

-3, 50272 

0. 

0.76599 

-8. 77890 

0, 76599 

2,09221 

-5. 76805 

0, 76599 

2.09221 

-2. 75720 

0. 76599 

2.09221 

-7, 34216 

2,09221 

3.99799 

-4,51402 

2.09221 

3.99799 

-1,68588 

2.0922 1 

3,99799 

-5. 54054 

3. 99799 

6, 38776 

-2.94152 

3.99799 

6,38776 

-0. 34250 

3.99799 

6,38776 

-3. 46439 

6.38776 

9.1 4169 

-1 . 1 2940 

6,38776 

9.1 4169 

1.20559 

6.38776 

9. 1 4169 

-1, 21782 

9, 1 4169 

1 2,1 2168 

0-83147 

9, 14169 

1 2.1 2168 

2.88076 

9.14169 

12,12168 

1.08653 

1 2, 12168 

1 5. 1 7831 

2. 84278 

1 2. 12168 

1 5. 1 78 31 

4.59902 

12.12168 

1 5. 1 7831 

3. 33311 

15,17831 

1 8, 1 5831 

4,80365 

1 5. 1 7831 

1 8. 1 5831 

6.27419 

1 5.1 7831 

1 8. 1 5831 

5.40926 

1 8.15831 

20,91 224 

6.6! 577 

1 8, 1 5831 

20.91224 

7. 82228 

1 8. 1 5831 

20,91224 

7.2108? 

20.91224 

23, 30201 

8. 1 8827 

20. 91 224 

2 3. 30201 

9.16566 

20.91224 

23, 30201 

8.64761 

23, 30201 

2 5,20778 

9.44230 

23, 30201 

25.20778 

1 0.23698 

23. 30201 

25.20778 

9.64744 

25. 20778 

26. 53401 

1 0. 31 497 

2 5, 20 77 8 

26,53401 

1 0.98250 

25, 20778 

2 6. 53401 

1 0.22491 

26.53401 

27,30000 

10.81900 

26.53401 

27, 30000 

11.41309 

26. 53401 

27,30000 

1 2.05335 

27, 30000 

2 7,87407 

1 2.69934 

27. 30000 

27. 87407 

1 3. 34532 

27,30000 

2 7.87407 

1 2. 72285 

27.87407 

2 8.75271 

1 3. 26003 

27. 87407 

2 8. 75271 

1 3.79721 

27, 87407 

2 8.7 5271 

1 3,49592 

28,75271 

29, 76729 

1 3.90747 

28.75271 

2 9,76729 

14.31902 

28. 75271 

2 9.76729 

14.16542 

29.76729 

30.64593 

14.46816 

29. 76729 

30.64593 

1 4. 77091 

29, 76729 

30,64593 

1 4. 55195 

30. 64593 

31,1 5321 

14.79188 

30,64593 

31,1 5321 

1 5.03181 

30.64593 

31.1 5321 

-2.75247 

0. 

0,76599 

-1.04080 

0. 

0.76599 

0.67088 

n. 

0.76599 

-2. 03132 

0. 76599 

2,0 92 21 

-0.35005 

0. 76599 

2,09221 

1,33121 

0, 76599 

2.09221 

-0.99503 

2.09221 

3.99799 

0.64254 

2. 09221 

3.99799 

2- 2801 1 

2,09221 

3.99799 

0- 30443 

3.99799 

6, 38776 

1. 38721 

3.99799 

6. 38776 

3.46999 

3.99799 

6. 38776 

1 , 80191 

6.38776 

9, 1 4169 

3, 32155 

6.38776 

9.1 4169 

4.84119 

6, 38776 

9. 1 4169 


Z 1 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 , 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 . 
0 , 
0 , 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 , 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 


Z2 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 , 

0 , 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

n. 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 . 

0 , 

0 , 

0 . 

0 . 

0 . 

0 , 

0 , 

0 , 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 

0 . 

0 . 
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1 .801 91 

3.42231 

9.14169 

1 2,1 216? 

0. 

3.321 55 

4.87363 

9,14169 

1 2.1 2168 

0. 

4.841 19 

6. 32494 

9.14169 

1 2,1 21 68 

0. 

3.42231 

5.08439 

1 2. 12163 

1 5. 1 7831 

0. 

4.37363 

6.46562 

12.12168 

1 5.1 7831 

0. 

6.32494 

7.84686 

12,12168 

1 5,1 7831 

0. 

5.08439 

6.70479 

1 5.17831 

1 8,1 5831 

0, 

6.46562 

8.01770 

1 5.17831 

1 8.1 5831 

0. 

7.84686 

9.33061 

15,17831 

1 8. 1 5831 

0, 

6. 70479 

8.20227 

1 8. 15831 

2 0, 9 1 224 

0. 

8.01770 

9.45204 

18.15831 

20, 91 224 

0, 

9.33061 

10.70181 

1 8. 15831 

20.91224 

0. 

8.20227 

9.50173 

20,91 224 

23. 30201 

0. 

9.45204 

10.69671 

20.91 224 

23. 30201 

0. 

10.701 81 

11.89169 

20.91 224 

23. 30201 

0. 

9.501 73 

10.53802 

23. 30201 

25.20778 

0. 

1 0.69671 

11-68930 

23. 30201 

25.20778 

0, 

11.891 69 

12.84059 

23.30201 

2 5, 20778 

0. 

10.53802 

1 1. 2591 7 

25.20778 

2 6. 5 3401 

0, 

1 1.68930 

12.3800-5 

25.20778 

2 6.53401 

0. 

12.84059 

13.50092 

25. 20778 

26. 53401 

0. 

11.25917 

11.67568 

26.53401 

27. 30000 

0. 

12.38005 

1 2.77900 

26.53401 

2 7.3 0000 

0. 

13.50092 

13.88232 

26.53401 

27.30000 

0. 

13.22075 

13.49908 

27.30000 

27.87407 

0. 

13.60700 

13.84704 

27.30000 

2 7.87407 

0. 

13.99325 

14.19500 

27.30000 

2 7.87407 

0. 

1 3.49908 

13.92508 

27.87407 

2 8. 7 5271 

0, 

13.84704 

1 4. 21443 

27.87407 

2 8, 7 5271 

0. 

14.19500 

14.50379 

27.87407 

2 8. 75271 

0. 

13.92508 

14-41698 

28.75271 

29.76729 

0. 

14.21443 

14.63867 

28.75271 

29.76729 

0. 

14.50379 

14.86035 

28. 75271 

29. 76729 

0. 

14.41698 

14.84298 

29. 76729 

30.64593 

0. 

14.63867 

1 5.00606 

29. 76729 

30.64593 

0. 

14.86035 

15.16914 

29.76729 

30. 64593 

0. 

14.84298 

15-08893 

30.64593 

31.1 5321 

0. 

15.00606 

15.21817 

30.64593 

31,15321 

0. 

15.16914 

1 5.34742 

30.64593 

31.15321 

0. 

CONTROL POINT C00RDINATES= 



XCP 

YCP 

7 . CP 

XCP 

YCP 

-8.75474 

0.34223 

0. 

-5.08437 

0.34223 

-3.24919 

0. 34223 

0, 

-8.03457 

1.35177 

-4.47596 

1.35177 

0. 

-2.69666 

1,35177 

-6.87447 

2,97800 

0. 

-3.49590 

2.97800 

-1.80662 

2.97800 

0. 

-5.33263 

5,1 3936 

-2.19333 

5. 13936 

0. 

-0.62369 

5,1 3936 

-3.48635 

7. 72749 

0. 

-0.63358 

7.72749 

0.79281 

7. 72749 

0. 

-1.42822 

10.61259 

1.10516 

10.61259 

0 . 

2.37185 

10.61259 

0.73856 

1 3.65000 

0 . 

2,93569 

13.65000 

4.03425 

1 3-65000 

0. 

2.90535 

16.68741 

4.76621 

16.68741 

0. 

5,69665 

16.68741 

4.96348 

19.57251 

0. 

6.50495 

19.57251 

7.27569 

19.57251 

0. 

6. 80976 

22.16064 

8.06471 

22-16064 

0 . 

8.69219 

22.16064 

8.35160 

24.32200 

0. 

9.36728 

24.32200 

9.87512 

24^32200 

0. 

9.51169 

25.94822 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

0 


ZCP 
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1 0,147^4 

25.94822 

0, 

1 0, 76516 

25.94822 0, 


1 0.271 86 

26. 95777 

0, 

10.95575 

26,95777 0, 


1 1 .71769 

26,95777 

0, 

1 2.1 0534 

27,56259 0, 


1 2. S95 80 

27,56259 

0, 

1 3,29102 

27.56259 0, 


12.61444 

28.28000 

0, 

1 3,30231 

28,28000 0, 


1 3.64625 

28, 28000 

0, 

1 3,30988 

29,26000 0, 


13.8576? 

29, 26000 

0, 

14,13150 

29.26000 0, 


1 4.00531 

30. 24000 

0. 

1 4.4 1294 

30.24000 0, 


14,61675 

30.24000 

0, 

14.51441 

30.95741 0. 


14.81945 

30, 95741 

0, 

14.93198 

30.95741 0, 


-2.25535 

0,34223 

0. 

-0, 26766 

0.34223 0. 


0,72619 

0, 34223 

0. 

-1.71618 

1.35177 0, 


0.24478 

1,35177 

0 , 

1 .2 2526 

1,35177 0, 


-0.84766 

2,97800 

0. 

1 ,07025 

2.97800 0, 


2,02920 

2.97800 

0, 

0,30666 

5,1 3936 0, 


2.16735 

5,1 3936 

Q« 

3.09769 

5,13936 0, 


1.68890 

7, 72749 

(j. 

3.43107 

7.72749 0. 


4,3771 5 

7. 72749 

0, 

3. 22975 

10.61259 0 . 


4.94553 

10,61259 

n. 

5,80343 

10,61259 0, 


4.851 94 

13,65000 

0, 

6.48731 

13.65000 0, 


7,30500 

1 3,65000 

0, 

6,4741 3 

16.68741 0. 


8.02909 

1 6,6874'’ 

0. 

S, 80657 

16.68741 0. 


8.01498 

19,57251 

0, 

9. 4 9356 

19,57251 0. 


10.23285 

1 0, 57251 

0, 

9, 39722 

22.16064 0, 


1 0.80728 

22.16064 

0, 

11.51231 

22,16064 0. 


10,55154 

24, 32200 

0, 

1 1.90438 

24,32200 0, 


1 2.58080 

24, 32200 

0. 

1 1.4 2006 

25,94822 0, 


1 2.72984 

25,94822 

0, 

13,38474 

25.94822 Q, 


1 1.95922 

26, 95777 

0, 

1 3.24228 

26,95777 0. 


13,88381 

26,95777 

0 , 

1 3, 50391 

27,56259 0, 


1 3,92969 

27,56259 

0, 

1 4,1 4258 

27.56259 0, 


1 3.831 51 

28,28000 

0. 

1 4,20204 

28,28000 0. 


1 4 .38730 

28, 28000 

0, 

1 4.27902 

29,26000 0, 


1 4.57407 

29, 26000 

0. 

1 4. 7 21 60 

29.26000 0, 


14.72654 

30, 24000 

0, 

1 4.9461 1 

30.24000 0. 


15.05590 

30, 24000 

0, 

1 5.0 541 4 

30.95741 0, 


1 5.21846 

30.95741 

0, 

1 5, 30062 

30,95741 0, 




XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



PRESSURE 1 

DISTRIBUTION 

AT ALPHA = 1 

.510 DEG. 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

VORTEX 


XV 


YV 

CP 

1 


0,04345 


0. 01 254 

0.44793 

2 


0.32435 


0.01 254 

0.3S576 

3 


0.60524 


0,01 254 

0.32569 

4 


0,67223 


0,01254 

0,30430 

5 


0.82435 


0.01 254 

0.24915 

6 


0.97647 


0,01 254 

0.13859 

7 


0.04319 


0.04952 

0,51146 

8 


0.32236 


0.04952 

0,39793 

9 


0,601 54 


0. 04952 

0.34470 

1 0 


0,66852 


0.04952 

0,23451 

1 1 


0.82236 


0, 04952 

0,23705 

1 2 


0,97620 


0,04952 

0,13022 

1 3 


0,04273 


0,10908 

0,61 962 

1 4 


0,31894 


0, 1 0908 

0,41677 

1 5 


0.59516 


0. 1 0908 

0.34324 

1 6 


0.6621 5 


0. 1 0908 

0,28332 

1 7 


0,81894 


0.10908 

0,22449 

1 8 


0.97574 


0.10908 

0,12415 

1 9 


0,04206 


0. 1 3826 

0, 7331 7 

2 0 


0,31393 


0. 1 8826 

0.44271 

2 1 


0.58580 


0.18826 

0,341 70 

2 2 


0,65279 


0, 18826 

0.28761 

2 3 


0,81393 


0, 1 8 82 6 

0.22183 

24 


0,97507 


0, 18826 

0,12341 

2 5 


0.04114 


0,28306 

0. 83924 

2 6 


0,30708 


0,28306 

0.47327 

27 


0,57303 


0.28306 

0,34552 

28 


0,64001 


0.28306 

0,29913 

29 


0,80708 


0.28306 

0.22708 

3 0 


0.97415 


0,28306 

0.12514 

3 1 


0,03994 


0.38874 

0,93525 
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32 

0.29810 

3 ? 

0.55627 

34 

0.62326 

35 

0.79810 

36 

0.97295 

37 

0.03840 

3 8 

0.28664 

39 

0.53488 

4 C 

0.60187 

4 1 

0.78664 

42 

0.9 71 42 

43 

0.05649 

44 

0.27239 

45 

0.50828 

46 

0.57527 

47 

0.77239 

48 

0.96951 

49 

0.03419 

50 

0.25521 

51 

0.47622 

52 

0.54321 

53 

0,75521 

54 

0.96720 

55 

0.031 54 

56 

0.23545 

57 

0,4 3936 

58 

0,50634 

59 

0.73545 

60 

0.96456 

61 

0.02873 

62 

0.21441 

63 

0-40010 

64 

0.46709 

65 

0,71441 

66 

0.96174 

67 

0.02609 

68 

0.1 9475 

69 

0,36341 

70 

0.43040 

71 

0.69475 

72 

0,95910 

73 

0.02416 

74 

0,1 8035 

75 

0.33653 

76 

0.40352 

77 

0,68035 

78 

0,95717 

79 

0,04354 

80 

0.32496 

8 1 

0.60638 

82 

0.67337 

83 

0.82496 

84 

0,97655 

85 

0.04354 

86 

0,32496 

8 7 

0.60638 

88 

0.67337 

89 

0,82496 

90 

0,97655 

9 1 

0,04354 

92 

0,32496 

93 

0.60638 

94 

0.67337 

95 

0.82496 

96 

0.97655 

97 

0.04354 

98 

0.32496 

99 

0.60638 

1 00 

0.67336 

101 

0.82496 

1 0 2 

0.97655 

103 

0.04354 

104 

0,32495 

105 

0.60637 

106 

0.67336 

107 

0.82495 

108 

0.97655 


0.38374 
0. 38874 
0.38874 
0.38874 
n . 38874 
0. 50000 
0.50000 
0.50000 
0.50000 
0.50000 
0. 50000 
0,61 126 
0,61 126 
0, 61 126 
0.61126 
0.61126 
0.61126 
0. 71 694 
0.71694 
0. 71 694 
0, 71 694 
0.71 694 
0,71 694 
0.81 174 
0.81174 
0.81 174 
0.81 174 
0.81174 
0.81174 
0.89092 
0.89092 
0.89092 
0. 89092 
0. 89092 
0.89092 
0.95048 
0.95048 
0.95048 
0.95048 
0.95048 
0.95048 
0.98746 
0.98746 
0.98746 

0.98746 
0.98746 
0.98746 

1.00962 

1.00962 

1.00962 

1 .00962 

1.00962 

1 . 00962 

1.03590 

1.03590 

1 .03590 

1.03590 

1.03590 

1.03590 

1.07179 

1.07179 

1.07179 

1.07179 

1.07179 

1.07179 

1.10769 

1.10769 

1 .10769 

1.10769 
1 . 10769 

1.10769 

1,1 3397 

1 . 1 3397 

1.13397 

1.13397 

1 . 1 3397 

1 . 13397 


0,50727 
0.35338 
0,31709 
0.25901 
0.12950 
1.02196 
0 , 54353 
0.36461 
0.53801 
0,25459 
0.13431 
1.09970 
0.58078 
0,38022 
0,35992 
0.27372 
0.14072 
1.16713 
0.61 809 
0.40000 
0,37765 
0.29265 
0.1 4530 
1.22098 
0.65585 
0.41463 
0.38701 
0.30991 
0.14991 
1 .24769 
0.68390 
0,40675 
0.33537 
0.31 304 
0,14774 
1 .20932 
0.66992 
0 . 3 5 9 T 5 
0.36456 
0.32383 
0.16032 
1,01 572 
0.51 482 
0.28470 
0.37978 
0,36652 
0,15582 
1,65960 
0,54866 
0.30345 
0.22973 
0,27614 
0.15960 
1,37233 
0,43631 
0.32067 
0,25103 
0.27775 
0.15470 
1 ,19007 
0.4381 1 
0.30323 
0.23858 
0 , 2685 ? 
0,14981 
1 .06233 
0.38838 
0.27029 
21341 
2461 1 
1415 0 
... 8 7 0 5 1 
0 . 2630 G 
0,17610 
0.1 4406 
0,18574 
0,12581 


0 - 

0 , 

0 

0 
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Y / S 

CL (RIGHT) 

CL(LEFT) 

CM 

C T 

CD I 

0.01254 

0. 34 51 8 

0.34518 

0.24092 

0.00019 

0.0141 7 

0.04952 

0.35762 

0.35762 

0.22875 

0.00006 

0.01 331 

0.10908 

0. 37702 

0. 37702 

0.20357 

0.00056 

0.01116 

0.1 S8?6 

0.40089 

0.40089 

0, 1 5 61 0 

0.00162 

O.OOSbu 

0.28306 

0. 42631 

0.42631 

0.0831 4 

0.00306 

0.006OU 

0.38874 

0.45157 

0.45157 

-0.01 396 

0.00469 

0. 0047O 

0.50000 

0.47470 

0. 47470 

-0.12994 

0.00635 

0. 0032o 

0.61126 

0.49492 

0.49492 

-0.25730 

0.00791 

0.00224 

0.71694 

0. 50951 

0.50951 

-0.38461 

0.00921 

O.OOloo 

0.81174 

0. 51620 

0. 51620 

-0.49878 

0.01008 

0.001 53 

0.89092 

0. 50534 

0. 50534 

-0.57692 

0.01018 

0.001 33 

0.95048 

0.47718 

0.47718 

-0.61040 

0.00894 

0,002o1 

0.98746 

0.42661 

0.42661 

-0.58830 

0.00574 

0.00747 

FOLLOWING ARE 
1.00962 

THE WINGLET 
0. 141 84 

CHARACTERISTICS 

0.14184 

-0.23425 

0.04885 

-0.06425 

1 .03590 

0. 131 54 

0.13154 

-0.21894 

0.02880 

-0.0423a 

1.07179 

0. 11994 

0.11994 

-0.20718 

0.02093 

-0.03293 

1 . 10769 

0.10802 

0.1080? 

-0.19401 

0.01629 

-0. 02 7ua 

1.13397 

0.08108 

0.08108 

-0.14953 

0.01083 

-0.01932 


*** THE FOLLOWING ARE ATTACHED POTENTIAL FLOW RESULTS *** 

TOTAL LIFT COEFFICIENT = 0.44493 

TOTAL INDUCED DRAG COEFFICIENT = 0.00474 

THE INDUCED DRAG PARAMETER = 0.02394 

TOTAL PITCHING MOMENT COEFFICIENT = -0.08550 

THE WING LIFT COEFFICIENT = 0.44115 

THE WING INDUCED DRAG COEFFICIENT = 0.0059G 

THE WING PITCHING MOMENT COEFFICIENT = -0.07904 

THE TAIL LIFT COEFFICIENT = 0 . 00 3 78 ( B A S E D ON WING AREA)/ = 0 . 00 378 ( 8 A S E D ON TAIL AktA) 

THE TAIL PITCHING MOMENT COEFFICIENT BASED ON REFERENCE WING AREA 
AND MEAN WING CHORD/ AND REFERRED TO THE Y-AXIS = -0.00646 

(NOTE. THE INDUCED DRAG COMPUTATION IS FOR SYMMETRICAL LOADING ONLY) 

A********************************* ****** 

THE FOLLOWING PARAMETERS ARE USED IN THE METHOD OF SUCTION ANALOGY 


C LP = 

0.44591 

CLVLF = 

0. 00620 

CLVSE = 

0.00109 

CDP = 

0.01027 

CDVLE = 

-0.001 00 

CDVSE = 

0.00007 

CMP = 

-0.08550 

CMVLE = 

-0.001 78 

CMVSE = 

-0.00149 


************************ 
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♦STABILITY DERIVATIVES BY POTENTIAL FLOW THEORY* 


♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA s 1.510 DEGREES 
AND AT MACH NO.* 0.50#BASED ON BODY AXESdN PER RADIAN)*** 

CYB * -0.1691180 CLB « -0.1986322 CNB * 0.0151494 

CYP * -0.1860291 CLP * -0,4867214 CNP * -0.0144590 

CYR * 0.1008180 CLR = 0,1168240 CNR * -0,01 59456 

♦♦♦STABILITY DERIVATIVES BASED ON STABILITY AXES*** 

CYB s -0.1691180 CLB * -0,1981640 CNB * 0.0203784 

CYP * -0.1833078 CLP * -0.4836980 CNP * -0.0021287 

CYR * 0.1056851 CLR * 0.1291542 CNR * -0,0189690 

*******************************ik*****<k** 

♦STABILITY DERIVATIVES WITH EDGE VORTEX SEPARATION* 

♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA = 1.510 DEGREES 

AND AT MACH NO.* 0.50#BASE0 ON BODY AXESdN PER RADIAN)*** 


♦♦INCLUDING THE EFFECT Of LE AND SE VORTEX LIFT* 


CYB 

S 

-0. 2169768 

CLB 

S 

-0.21 1 5922 

CNB 

S 

0.0348294 

CYP 

= 

-0.3323266 

CLP 

ss 

-0.5473992 

CNP 

s 

0.0466965 

CYR 

s 

0. 1118237 

CLR 

s 

0.1198273 

CNR 

s 

-0.0225003 

♦♦STABILITY DERIVATIVES 1 

BASED ON STABILITY 

AXES*** 

CY8 

s 

-0.2169768 

CLB 

S 

-0.2106009 

CNB 

SI 

0.0403930 

C YP 

s 

-0.3292644 

CLP 

s 

-0.5426481 

CNP 

s 

0.0604079 

CYR 

s 

0. 1 2054 21 

CLR 


0.1 335387 

CNR 

s 

-0.0272514 


♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA = 1.510 DEGREES 

AND AT MACH NO,* 0,50#BASED ON BODY AXESCIN PER RADIAN)*** 


♦INCLUDING THE EFFECT OF LE VORTEX LIFT* 


CYB 

s 

-0.2106318 

CLB 


-0.21 02347 

CNB 


0.0333645 

CYP 

s 

-0. 3059744 

CLP 

S 

-0,5369804 

CNP 

s: 

0,0411909 

CYR 

s 

0.1091325 

CLR 

S 

0,1 1 93995 

CNR 

3 

-0.021861 1 

♦♦STABILITY DERIVATIVES 

BASED ON STABILITY 

AXES*** 

CYB 

s 

-0.2106318 

CLB 

ss 

-0.2092825 

CNB 

3 

0.0388929 

CYP 

s 

-0,3029924 

CLP 

% 

-0,5323923 

CNP 

3 

0.Q5464SS 

CYR 

s 

0.1 171575 

CLR 


0.1328574 

CNR 

3 

-0.0264491 
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THE FOLLOWING BENDING MOMENT COEFFICIENT IS BASED ON 3*S*(3/2)# 
WHERE S = 418.50000 AND B/2 = 27.30000 

(FOR ATTACHED POTENTIAL FLOW ONLY) 


Y/S 

BM(RIGHT) 

BM(LEFT) 

0.01254 

0,10333 

0.10333 

0.04952 

0.09516 

0,0951 6 

0,10908 

0.08275 

0. 08275 

0.18826 

0.06770 

0.06770 

0.28306 

0.05186 

0.05186 

0.38874 

0.03694 

0.03694 

0.50000 

0.02429 

0,02429 

0.61 1 26 

0.01459 

0. 01 459 

0.71 694 

0.00794 .. 

0.00794 _ 

0.81174 

0,00389 

0.00389 

0.89092 

0,00177 

0.00177 

0,95048 

0.00083 

0,00083 

0.98746 

0.00050 

0,00050 


THE FOLLOWING ARE THE WINGLET CHARACTERISTICS BASED ON WING GEOMETRY 
WHERE S = 418.50000 AND B/2 = 27.30000 


1.00962 

1.03590 

1.07179 

1.10769 

1,13397 


0.00035 

0.00020 

0.00007 

0,00001 

0.00000 


0.00035 
0,00020 
0.00007 
0,00001 
0, 00000 


THE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAN AND WING AREA 

AT THE WING ROOT = 0.106180 (RIGHT)^ = 0.106180 (LEFT) 


THE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAN AND WING AREA 

AT THE WINGLET ROOT = 0.000420 (RIGHT)^ s 0.000420 (LEFT) 
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A. 5 Sample Test Case No. 2 
Input Data! 


1 


A conJ?guration 

WITH antisymmetrical 

AILERON 

DEFLECTIONS 



3 

1 1 

6 

3 

0 

3 


1 

3 

-f 

0 » 7 

1 

^0. 

0 

0 

0 

0 

0 


1,2987 

1.7814 

1,125 

0. 

2987 

1.7814 

1.125 

1.645 

2,0697 

1.425 

0. 

6A5 

7814 

2.0697 

1*9882 

J.A25 

1*125 

l«73l6 

kllhf 

im 

1.5 ^ 

1 * 1 2 § 

1.425 

8* 

s* 

0. 

0697 

2.2517 

1,425 

2.1418 

2,3176 

1.5 

0. 

4 

1.1895 

0.811 

0 ® 

-15. 




5. 

0. 






0 e 
0. 

1.5 

0 ^ 

0. 

0, 

0. 
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CASE NUMBER =10 


"k ir ic kkkkkkir-k 


kkkkkkkkkkkkkkkk^ 


■ -k k k "k kkkkkkkk 


k k k k k k k k k k k k k k kkkkkkkkkkkkkkkkkk kkkkkkkk 

A CONFIGURATION WITH ANT I S Y MM E TR I C A L AILERON DEFLECTIONS 


kkkkkkkkkkkkkkk^ 


: k k k k k k k kkkkkkkk 


INPUT DATA 


3 

1 

3 

-1 


1 .298700 
1 .645000 
0.700000 
1.781400 
2.069700 
0.400000 
1 . 000000 
0 . 
n. 


11 
2 
2 
1 

0. 700000 
1 .781400 
2.069700 
1.000000 
1.988200 
2.251700 
1.189500 
5.000000 
0 . 

0 . 

HALF SW= 0, 


6 

0 

0 

0 - 

1.125000 
1 .425000 
0 . 

1 .125000 
1 .425000 
0.811000 
0 . 

1,500000 
1 1 895E 01 


3 

0 

1 .298700 
1 .645000 
1 .731600 
1 .781400 
2,069700 
2.141800 
0 . 


0 
0 

1 . 781400 
2,069700 
2.141800 
1.988200 
2.251700 
2, 31 7600 
-1 5. 000000 


3 

0 

1.125000 
1 .425000 
1.500000 

1.125000 
1.425000 
1 .500000 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 


0 . 0 , 

CREF= 0.81100E 00 


VORTEX ELEMENT ENDPOINT COORDINATES= 


XI 

0.04689 
0.35000 
0.65311 
0.1 0491 
0.40377 
0.70263 
0.20372 
0.49534 
0.78695 
0.541 83 
0.62333 
0,90483 
0.50807 
0, 77739 
1.04670 
0.68896 
0.94502 
1.20109 
0.86986 
1.11266 
1 . 35547 
1 .03609 
1.26672 
1,49735 
1 . 1 74 21 
1 .39471 

1 .61522 
1.27301 
1 .48628 
1.69955 
1.33103 
1.54005 
1.74907 
1.38118 
1 .58652 
1.791 85 
1 .45793 
1 .65764 
1,85735 
1,54655 
1.73976 
1.93297 


X2 

0, 1 0491 
0. 40377 
0. 70263 
0.20372 
0.49534 
0.78695 
0. 34183 
0.62333 
0.90483 
0. 50807 
0. 77739 
1,04670 
0- 68896 
0.94502 
1.20109 
0,86986 
1,11266 
1.35547 
1, 03609 
1, 26672 
1,49735 
1. 17421 
1, 59471 
1.61522 
1. 27301 
1.48628 

1,69955 
1.33103 
1,54005 
1.74907 
1.3811S 
1, 58652 
1, 79185 
1.45793 
1,65764 
1,85735 
1 . 54655 
1. 73976 
1.9329? 
1.62330 
1.81088 
1.99846 


Y 1 

0 . 

0, 

0 . 

0,05083 
0.05083 
0.-0S083 
0, 13759 
0.13739 
0.13739 
0.25839 
0.25839 
0.25839 
0,40403 
0,40403 
0,40403 
0.56250 
0.56250 
0.56l250 
0. 72097 
0.72097 
0.72097 
0.86661 
0.86661 
0.86661 
0.98761 
0,98761 

0.98761 

1.07417 

1.07417 

1. 0741 7 
1.12500 
1.12500 
1.12500 
1.16893 
1.16893 
1.16893 
1.23618 
1.23618 
1. 23618 
1,31382 

1.31382 

1.31382 


Y2 

0,05083 
0,05083 
0.05083 
0.13739 
0. 1 3739 
0,1 3739 
0.25839 
0,25839 
0.25839 
0,40403 
0.40403 
0,40403 
0.56250 
0.56250 
0,56250 
0.72097 
0,72097 
0.72097 
0.86661 
0,86661 
0,86661 
0.98761 
0.98761 
0,98761 

1.07417 

1.07417 

1.07417 
1,12500 

1.12500 

1.12500 
1.16893 

1.16893 

1.16893 

1.23618 

1.23618 

1.23618 
1.31382 
1.31382 
1.31382 
1.38107 
1.38107 
1.38107 


Z1 

0 . 

0 . 

0 , 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 

0 , 

0 . 

0 , 

0 , 

0 . 

0 , 

0 , 

0 . 

0, 

0 . 

0 . 

0 . 

0 , 

0 . 

0 , 

0 . 

0 . 

0 , 

0 , 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 


Z2 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 , 

0 . 

0 , 

3, 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 

o: 

0 . 

0. 

0 . 

0 , 

0 . 

0 . 

0 . 

0 , 

0 . 

0 . 

0 . 

0 , 

0 . 
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1 . 6?330 

1.81088 

1 .99846 

1 .67345 

1.85735 

7 . 041 ?5 

1.71626 

1.89702 

2.07779 

0.74393 

0.95607 

0.79218 

1 . 001 33 

0.87433 

1 .07842 

0.98917 

1,18617 

1.12740 

1.31586 

1.27781 

1,45699 

1 .4 2822 

1.59812 

1 .56644 

1 .72781 

1.68129 

1 . 835 56 

1 . 76344 

1.91265 

1.81169 

1 .95791 

1.85337 

1 . 99704 

1.91718 

2.05691 

1 .99086 

2. 1 2605 

2.05466 

2.1 8593 

2.09635 

2.22505 

2.1 31 95 

2.25845 


1.67345 
1.85735 
2.04125 
1,71626 
1,89702 
2, 07779 
1,75334 
1-93138 
2. 10943 
0, 79218 
1,00133 
0.87433 
1.07842 

0,98917 

1,18617 

1,12740 

1.31 586 

1,27781 

1,45699 

1,42822 

1,59812 

1, 56644 

1.72781 

1.68129 

1.83556 

1. 76344 

1.91265 

1.81169 

1,95791 

1,85337 

1,99704 

1,91718 

2,05691 

1,99086 

2, 1 2605 

2.05466 

2 , 1 8593 

2,09635 

2,22505 

2,13195 

2,25845 

2. 16278 

2,28738 


1.38107 

1.38107 

1.38107 

1.42500 

1 .42500 

1 .42500 
1 . 46250 
1.46250 
1.46250 
0 . 

0 . 

0,05083 
0.05083 
0.13739 
0. 13739 
0,25839 
0,25839 
0.40403 
0.40403 
0. 56250 
0. 56250 
0. 72097 
0, 72097 
0, 86661 
0.86661 
0,98761 
0, 98761 
1,07417 
1.0741 7 

1.12500 

1 . 12500 

1.16893 

1.16893 

1.23618 

1.23618 
1, 31382 
1 , 3138 ? 

1.38107 

1.38107 
1.42500 
1.42500 

1 . 46250 

1.46250 


1.42500 0 . 

1.42500 0 . 

1.42500 0 . 

1,46250 0 . 

1.46250 0 , 

1.46250 0 . 

1.49498 0 . 

1,4 94 98 0 . 

1.49498 0 . 

0.05083 0 , 

0.05083 0 , 

n . 13739 0 . 

0,13739 0 . 

0.25839 0 . 

0.25839 0 . 

0.40403 0 , 

0.40403 0 . 

0.56250 0 . 

0 . 5 6250 0 , 

0.72097 0 , 

0.72097 0 , 

0.86661 0 . 
0,86661 0 , 
0,98761 0 . 

0.98761 0 . 

1.07417 0 , 

1.07417 0 . 

1.12500 0 , 

1.12500 0 , 

1.16893 0 , 

1.16893 0 , 

1.23618 0 . 

1.23618 0 . 

1.31382 0 . 

1.31382 0 , 

1.38107 0 . 

1.38107 0 . 

1.42500 0 . 

1.42500 0 , 

1,46250 0 . 

1,46250 0 . 

1.49498 0 . 

1.49498 0 . 


0 , 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

0 , 

0 . 

0 , 

0 . 

0 , 

0 , 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

s- 

0 . 

0 . 

0 . 
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CONTROL POINT COOROINATES= 


XC P 

V CP 

ZCP 

XC P 

YCP 

ZCP 

0.20020 

0, 02279 

0, 

0,54800 

0,02279 

0. 

0.721 90 

0,02279 

0. 

0, 27377 

0,08929 

0, 

0.61515 

0,08929 

3. 

0.78583 

0.08929 

0, 

0.38974 

0.19414 

0. 

0,72099 

0,1 9414 

0. 

0,8866? 

0, 1 9414 

0, 

0, 53872 

0.32883 

0. 

0.85696 

0. 32883 

n. 

1 .01609 

0,32883 

0. 

0. 70864 

0,48245 

0, 

1,01205 

0.48245 

0. 

1.16375 

0,48245 

0. 

0, 88573 

0,64255 

0, 

1 .1 7368 

0.64255 

0. 

1,31765 

0,64255 

0. 

1.05565 

0. 79617 

0. 

1,32876 

0.79617 

0. 

1 .465 31 

0,79617 

0. 

1 ,20463 

0,93086 

0. 

1 .464 73 

0,93086 

0. 

1.59478 

0,93086 

0. 

1.32060 

1,03571 

0, 

1,57058 

1 .03571 

0. 

1 .695 57 

1,03571 

0. 

1,39417 

1 , 1 0221 

0. 

1.6377? 

1.10221 

0, 

1,75950 

1 , 1 0221 

0. 

1.44160 

1.14510 

0, 

1,68101 

1 .14510 

0. 

1 .80071 

1.14510 

0, 

1,50232 

1 .20000 

s- 

1 .73642 

1,20000 

0. 

1.85348 

1.20000 

0. 

1 . 585 27 

1.27500 

0. 

1.81212 

1 .27500 

0. 

1.92555 

1,27500 

0, 

1,6682? 

1 ,35000 

0. 

1 .88782 

1.35000 

0. 

1.99762 

1,35000 

0. 

1 .72895 

1,40490 

0. 

1.94324 

1 ,40490 

0. 

2.05039 

1.40490 

0. 

1 .771 92 

1 .4 4375 

0. 

1.98246 

1.44375 

0. 

2.08773 

1 .44375 

0. 

1.81341 

1,48125 

0. 

2. 02032 

1 .481 25 

0. 

2,12378 

1,48125 

0, 

0,87096 

0,02279 

0, 

1 .02001 

0,02279 

0, 

0,93214 

0,08929 

0. 

1 .07844 

0-08929 

0, 

1.02858 

0.1 9414 

0. 

1.1 7053 

0, 1 9414 

0. 

1.1 5246 

0.32883 

0. 

1 .28884 

0,32883 

0. 

1.29377 

0.48245 

0. 

1 .4 2378 

0. 48245 

0 . 

1,44103 

0,64255 

0, 

1 .564 42 

0,64255 

G, 

1,58234 

0,79617 

0. 

1.69936 

0,79617 

0, 

1 .70622 

0,93086 

0. 

1.81767 

0,93086 

0, 

1 ,80266 

1 .03571 

0, 

1 .90976 

1. C3571 

0. 

1,86384 

1 ,1 0221 

0. 

1.96819 

1, 10221 

0. 

1.90528 

1.14510 

0. 

2.00585 

1.14510 

0. 

1.95378 

1,20000 

0, 

2.05408 

1.20000 

0, 

2.02275 

1 ,27500 

0, 

2.1 1995 

1,27500 

0. 

2.09172 

1 ,35000 

0, 

2,1 8583 

1,35000 

0. 

2.1422? 

1 .40490 

0. 

2.23405 

1,40490 

0. 

2, 1 -^795 

1 ,4 43 75 

9* 

2.26818 

1.44375 

0, 

2.2 1245 

1 ,481 25 

0, 

2.30113 

1,48125 

0, 






s I 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PRESSURE DISTRIBUTION AT ALPHA = 5.000 DEG. 

AND AILERON ANGLE = -15.000 DEG. 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


VORTEX 

XV 

YV 

CP(LEFT) 

: P ( R I 6HT ) 

1 

0.04689 

0.01519 

0.49270 

3.49261 

2 

0.35000 

0.01 519 

0.2391 2 

0. 2389 P 

3 

0.65311 

0.01 519 

0. 13056 

0, 1 3042 

4 

0,74393 

0.01519 

0.14866 

0.14835 

5 

0.95607 

0.01 51 9 

0.05956 

0.05941 

6 

0.04689 

0.05953 

0.54355 

0.54316 

7 

0.3500C 

0.05953 

0.23920 

0.23855 

8 

0.65311 

0.05953 

0.14605 

0.14530 

9 

0.74394 

0.05953 

0.12413 

0,12299 

1 0 

0.95607 

0.05953 

0.05468 

0.05399 

1 1 

0.04689 

0.12943 

0.62831 

0.62708 

12 

0.35000 

0^12943 

0.24049 

0.23878 

1 3 

0.65312 

0.1 2943 

0.13995 

0.1 3782 

1 4 

0.74394 

0.12943 

0.11 321 

0.11070 

1 5 

0.95607 

0.12943 

0,04806 

0.04645 

1 6 

0.04689 

0.21922 

0.71 01 8 

0.70695 

1 7 

0.35001 

0.21922 

0.24636 

0.24259 

1 8 

0.65312 

0.21 922 

0. 1 3386 

0.12928 

1 9 

0.74395 

0.21922 

0,10798 

0.10307 

20 

0.95607 

0.21922 

0.04505 

0.04193 

21 

0.04689 

0.32163 

0.77842 

0.7710O 

22 

0.35001 

0.32163 

0.25523 

0.24761 

23 

0.65313 

0.32163 

0.13328 

0.1 243^ 

24 

0.74396 

0.32163 

0.10753 

0.09822 

25 

0.95607 

0.32163 

0.04481 

0.03892 

26 

0.04689 

0.42837 

0.83337 

0.81819 

27 

0.35002 

0.42837 

0.26585 

0.25107 

28 

0.65314 

0.42837 

0.13691 

0.11953 

29 

0.74396 

0.42837 

0.11079 

0.09272 

30 

0.95607 

0.42837 

0.04658 

0.03500 

31 

0.04689 

0.53078 

0.87752 

0.84875 

32 

0.35002 

0.53078 

0.27755 

0.24944 

33 

0.65315 

0.53078 

0.14434 

0.10967 

34 

0.74397 

0.53078 

0.11836 

0.08108 

35 

0.95607 

0.53078 

0.05150 

0.02668 

36 

0.04689 

0.62057 

0.91 292 

0.86269 

37 

0.35003 

0.62057 

0.29053 

0.23871 

38 

0.65316 

0.62057 

0.1591 7 

0.0871 9 

39 

0.74398 

0.62057 

0.13722 

0.05263 

40 

0.95607 

0.62057 

0.06517 

0.00685 

41 

0.04690 

0.69047 

0.94000 

0.86146 

42 

0.35003 

0.69047 

0.30511 

0.21735 

43 

0.65317 

0.69047 

0.19263 

0.04043 

44 

0.74399 

0.69047 

0.19223 

-0.0181 9 

45 

0.95608 

0. 69047 

0.09522 

-0.03155 

46 

0.04690 

0,73481 

0.95748 

0.85295 

47 

0.35004 

0.73481 

0.31 835 

0.19295 

48 

0.65317 

0.73481 

0.25917 

-0.03940 



49 

0.74399 

0.73481 

50 

0.95608 

0.73481 

51 

0.04690 

0.76340 

52 

0.35003 

0.76340 

53 

0.6531 7 

0. 76340 

54 

0.74399 

0. 76340 

55 

0.95608 

0. 76340 

56 

0.04690 

0.80000 

57 

0.35003 

0.80000 

58 

0.65316 

0.80000 

59 

0.74399 

0.80000 

60 

0.95607 

0.80000 

61 

0.04689 

0.85000 

62 

0.35002 

0.85000 

63 

0,65315 

0.85000 

64 

0.74397 

0.85 000 

65 

0.95607 

0.85000 

66 

0.04689 

0,90000 

67 

0.35002 

0.90000 

68 

69 

0.65314 

0.74396 

0*90000 

0.9ff000 

70 

0,95607 

0.90000 

71 

0.04689 

0, 93660 

72 

0.35001 

0.93660 

73 

0.65313 

0.93660 

74 

0.74395 

0.93660 

75 

0.95607 

0.93660 

76 

0.04689 

0.96250 

77 

0,35001 

0,96250 

78 

0.65312 

0.96250 

79 

0,74394 

0.96250 

80 

0.95607 

0.96250 

81 

0.04689 

0.98750 

82 

0.35000 

0.98750 

83 

0.65311 

0.98750 

84 

0.74394 

0.98750 

85 

0.95607 

0.98750 

Y/S 

CL(RIGHT) 

CL(LEFT) 

0.01519 

0.23574 

0.23592 

0.05953 

0. 24281 

0.24356 

0.12943 

0. 25384 

0.25576 

0.21922 

0. 26651 

0.27066 

0.32163 

0.27809 

0,28641 

0,42837 

0.28573 

0,30205 

0.53078 

0.28573 

0.31801 

0.62057 

0.27230 

0,33750 

0.69047 

0.23757 

0.36819 

0.73481 

0.18432 

0.41277 

0.76340 

0. 10288 

0.48521 

0.80000 

0. 04478 

0, 52562 

0.85000 

-0,00500 

0, 53641 

0.90000 

-0,03051 

0,49681 

0.93660 

-0.02304 

0,41397 

0.96250 

0.02598 

0,28682 

0.98750 

0.C2764 

0.16116 



0.31258 

-0.1 548i 


0.12057 

-0.06401 


0.96868 

0.8434U 


0.32895 

0.17099 


0.43862 

-0.2309O 


0.50386 

-0.35861 


0.13092 

-0.07971 


3.93205 

0.82405 


0.34413 

0.13339 


0.55599 

-0.37039 


0.56498 

-0.43773 


0.13501 

-0.0920O 


0.99379 

0.78111 


0.35288 

0.0727U 


0.59571 

-0.44949 


0.56704 

-Q, 47037 


0.12161 

-0.09063 


0.97710 

0,71149 


0,31927 

0.01538 


0,55888 

-0.45870 


0.49888 

-0.4T630 


0.08490 

-0.06504 


0.90648 

0.62689 


0.25458 

-0.01798 


0.47104 

-0.40289 


0.35365 

-0.31471 


0.04964 

-0.03657 


0.78308 

0.52504 


0.18737 

-0.03162 


0.2581 1 

-0.21131 


0,1 2904 

-0.10482 


0.02938 

-0.02045 


0.50500 

0.3305U 


0.10005 

-0.0265O 


0.1 1 979 

-0.09439 


0.04110 

-0.03106 


0.01 409 

-0.00905 

CM 

CT 

CDI 

-0.10373 

0.00305 

0.01757 

-0.12321 

0.00749 

0.01375 

-0.15697 

0.01062 

0.01163 

-0. 20770 

0.01389 

0.00935 

-0,27238 

0.01686 

0.00777 

-0, 34435 

0.01930 

0.00633 

-0.41348 

0.02120 

0.00513 

-0.47057 

0.02253 

0.004U5 

-0.50779 

0.02335 

0.003U6 

-0. 52527 

0.02377 

0.00226 

-0.53283 

0.02391 

0.001 73 

-0,53560 

0.02386 

C . 0 0 1 (j Li 

-0.52201 

0.02340 

-0,00024 

-0.47713 

0.02210 

-0.001 79 

-0.41095 

0.02023 

-0.0032U 

-0. 33477 

0.01759 

-0.00397 

-0.20527 

0.01317 

-0.00496 



*** THE FOLLOWING ARE ATTACHED POTENTIAL FLOW RESULTS ★** 


TOTAL LIFT COEFFICIENT = 0.26716 

TOTAL INDUCED DRAG COEFFICIENT = 0.00624 

THE INDUCED DRAG PARAMETER = 0.08738 

TOTAL PITCHING MOMENT COEFFICIENT = -0.32568 

FAR-FIELO INDUCED DRA6= 0.00636 
FAR-FIELD INDUCED DRAG PARAMETER= 0.08905 

(NOTE. THE INDUCED DRAG COMPUTATION IS FOR SYMMETRICAL LOADING ONLY) 

THE FOLLOWING PARAMETERS ARE USED IN THE METHOD OF SUCTION ANALOGY 


CLP = 

0.26567 

CLVLE = 

0.02597 

CLVSE = 

0,00729 

COP s 

0.02324 

CDVLE = 

0.00227 

CDVSE = 

0.00064 

Cf^p = 

-0.32568 

CMVLE = 

-0.02963 

CMVSE = 

-0,01871 




THE ROLLING MOMENT COEFFICIENT = 0.0220 DUE TO AILERON DEFLECTION OF -15.000 DEG. AT M = 0,400 


THE FOLLOWING BENDING MOMENT COEFFICIENT IS BASED ON Q*S*(3/2), 
WHERE S = 2,37900 AND 8/2 = 1.50000 

(FOR ATTACHED POTENTIAL FLOW ONLY) 


Y/S 

8M( RIGHT) 

BM (LEFT) 

0.01519 

0.03796 

0.11287 

0.05953 

0.03340 

0.10402 

0.12943 

0.02682 

0. 09067 

0-21922 

0,01945 

0.07461 

0.32163 

0.01254 

0- 05782 

0.42837 

0.00703 

0.04207 

0.53078 

0.00334 

0,02864 

0.62057 

0.00131 

0.01 821 

0.69047 

0.00044 

0.01 097 

0.73481 

0.00017 

0.00680 

0.76340 

0.00009 

0.00483 

0.80000 

0.00006 

0.00330 

0.85000 

0.00006 

0.00171 

0.90000 

0.00005 

0.00065 

0.93660 

0.00002 

0.0001 9 

0.96250 

0.00001 

0. 00004 

0.98750 

0.00000 

0, 00000 


THE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAN AND WING AREA 

AT THE WING ROOT = 0.039589 (RIGHT), = 0.115973' (LEFT) 
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A. 6 Sample Test Case NOe3 
Input Dates 


ih 0 

thrush-horizontal and vertical 
2 116 


Tail combination at yeoo 


13,5545 

14.0615 


i 


17,9545 

20,2015 

163,3 

- 2 , 

0. 

Of 

11,385 


0 , 

0 , 

7,5 

6« 

7,725 


10 


15,0811 

16.0733 

0 , 


1 


17,9911 

19.1133 

0 , 


7,725 

4,96 


LBS 

0 


2.708 

2.708 


0 • 

90 , 


Nf^TE. The calculated derivatives in this case will be based on the span of 

the horizontal tail (bg) ■ To convert them to those based on wing geometry, 


. C 


and should be multiplied by b^^/b^, and all others 


except C should be multiplied by (b /b ) . 
^ H w 



( 15 . 0811 . 7 . 725 ) 

( 17 . 9911 . 7 . 725 ) 



( 16 . 0733 , 4 . 96 ) 


( 19 . 1133 , 4 . 96 ) 
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CASE NUMPER =10 

************* ***************************** 

THRUSH-HORIZONTAL AND VERTICAL TAIL COMBINATION AT 7800 LBS 

******1k*i)**-******M*******-ik************** 

INPUT DATA 

? 11 6 10 1 0 

110 

5 0 0 0 0 0 

1 0 

13.554500 17.954500 0. 15.081100 17.991100 7.725000 2.703000 0, 

14.061500 20.201500 0, 16.073300 19.113300 4.960000 2.708000 90.000 


0. 

163.299999 

7.500000 

0, 

0, 


3.000000 

0. 

0. 

-2,000000 

n 

6.000000 




U « 

0. 

7.725000 

0. 

0, 

0. 

0. 

1 1 .385000 

0. 




HALF SW= 0, 

16330E 03 


CRCF= 0.75000E 01 

VORTEX ELEMENT ENDPOINT COORDINATES* 



XI 

X2 

Y1 

Y2 

Z1 

Z2 

13.66218 

1 3. 72951 

0. 

0,34905 

2,70800 

2.70800 

14.461 37 

1 4.51647 

0. 

0.34905 

2,70800 

2,70800 

1 5.75450 

1 5. 78982 

0. 

0.34905 

2.70800 

2.70800 

1 7.04763 

1 7.06316 

0. 

0.34905 

2.70800 

2. 70800 

17.84682 

1 7.85013 


0,34905 

2,70800 

2. 70800 

13.72951 

13.84416 

0.34905 

0.94342 

2.70800 

2.70800 

14.51647 

1 4.61030 

0.34905 

0.94342 

2.70800 

2,70800 

1 5.78982 

1 5.84995 

0.34905 

0.94342 

2.70800 

2.70800 

1 7.06316 

17.08960 

0,34905 

0.94342 

2.70800 

2.70800 

1 7.85013 

1 7.85575 

0.34905 

0,94342 

2.70800 

2,70800 

13.84416 

14,00443 

0.94342 

1,77427 

2.70800 

2.70800 

14.61030 

1 4. 74147 

0.94342 

1,774 27 

2,70800 

2.70800 

1 5.84995 

1 5.93402 

0.94342 

1.77427 

2.70800 

2.70800 

17.08960 

1 7. 1 2657 

0.94342 

1,77427 

2,70800 

2.70800 

1 7.85575 

1 7.86361 

0.94342 

1.77427 

2.70800 

2.70800 

1 4.00443 

14.19733 

1. 77427 

2.77431 

2.70800 

2.70800 

14,74147 

1 4.89934 

1.77427 

2,77431 

2.70800 

2,70800 

1 5.93402 

1 6.05520 

1.77427 

2.77431 

2,70800 

2.70800 

17.12657 

1 7, 1 7106 

1.77427 

2.77431 

2.70800 

2.70300 

17.86361 

1 7.87306 

1.77427 

2.77431 

2,70800 

2,70800 

14.19733 

14.40724 

2. 77431 

3.86250 

2.70800 

2.70800 

1 4.89914 

15.07112 

2.77431 

3.86250 

2,70800 

2,70800 

16.03520 

16.14530 

2,77431 

3.86250 

2.70800 

2, 70800 

1 7.1 7106 

17.21948 

2.77431 

3.86250 

2.70800 

2,70800 

1 7.87306 

1 7. 88336 

2.77431 

3,86250 

2.70800 

2,70800 

1 4.40724 

1 4.61715 

3.86250 

4.95069 

2.70800 

2,70800 

1 5.071 1 2 

1 5.24291 

3.86250 

4.95069 

2.70800 

2.70800 

1 6.1 4530 

1 6. 25540 

3.86250 

4.95069 

2,70800 

2,70800 

1 7.21948 

1 7.26789 

3.86250 

4.95069 

2,70800 

2,70800 
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XCP YCP ZCP 

14,00270 0.15646 2.70800 

16.44550 0.15646 2.70800 

1 7.95524 0.1 5646 2.70800 

1 5.1 5497 0.61 516 2,70800 

1 7.54854 0.61316 2 . 70800 

14.21355 1.33310 2.70800 

16.52949 1.33310 2,70800 

17.96082 1.33310 2,70800 

15.37041 2,25796 2.70800 

17.58662 2,25796 2,70800 


XCP YCP ZCP ^ 

1 5,09516 0.1 5646 2,70800 
1 7.53796 0,1 5646 2.70800 
14.08454 0,61316 2.70800 
16.47810 0,61316 2.70800 
17.95740 0,61316 2.70800 
15,24927 1.33310 2,70800 
17.56521 1,33310 2.70800 
14,37929 2,25796 2,70800 
16,59550 2.25796 2.70800 
17.96520 2.25796 2.70800 
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1 A. 568 32 

3. 31 281 

2.70800 

1 5,50857 

3,31281 

2.70303 


1 6.67079 

3, 31 281 

2, 70800 

1 7,61105 

3.31281 

2. 70800 


17.97020 

3, 31 281 

2. 70800 

14.76533 

4.41219 

2. 70800 


1 5.65257 

4. 41 219 

2.70800 

1 6.74926 

4.41219 

2, 70800 


17.63651 

4.41219 

2.70800 

1 7,97540 

4,41219 

2.70800 


1 A. 954 35 

5, 46704 

2,70800 

1 5.79073 

5.46704 

2.70800 


1 6.82A 55 

5.46704 

2.70800 

1 7,66093 

5,46704 

2.70800 


1 7.98040 

5. 46704 

2.70800 

1 5,1 2009 

6,39190 

2. 70800 


15.91187 

6. 39190 

2, 70800 

1 6,89057 

6,391 90 

2.70800 


17.68235 

6. 39190 

2.70800 

1 7,98478 

6.39190 

2. 70800 


1 5.24910 

7, 1 1 1 84 

2.70800 

1 6.00617 

7,11184 

2,70800 


16.94195 

7, 1 1 184 

2. 70800 

1 7,69902 

7.11184 

2.70800 


17.98820 

7, 1 1 184 

2.70800 

1 5,33094 

7.56854 

2.70800 


16.06599 

7, 56854 

2.70800 

1 6.97455 

7.56854 

2.70800 


1 7.70960 

7, 56854 

2. 70800 

1 7.99036 

7,56854 

2.70800 


1 4,76275 

0, 33226 

2.70800 

1 6,24584 

0.33226 

2,70800 


1 8.07903 

0, 33226 

2.70800 

1 9,56212 

0,33226 

2.70800 


20.12860 

0.33226 

2. 70800 

1 5.0 7676 

1 ,24000 

2,70800 


16.41801 

1.24000 

2,70800 

1 8.07589 

1.24000 

2. 70800 


19.41714 

1.24000 

2.70800 

1 9.92945 

1 ,24000 

2. 70803 


1 5.50571 

2,48000 

2.V0800 

1 6,65321 

2,48000 

2.70800 


18.071 59 

2. 48000 

2.70800 

1 9,21909 

2.48000 

2.70800 


19.65740 

2.48000 

' 2,70800 

1 5.93465 

3.72000 

2.70800 


16.88840 

3. 72000 

2,70800 

1 8.06730 

3,72000 

2.70800 


19.02105 

3. 72OU0 

2,70800 

1 9, 3 8535 

3.72000 

2.70800 


1 6.24866 

4.62774 

2.70800 

1 7.06057 

4.62774 

2.70800 


18.06416 

4.62774 

2.70800 

1 8.87607 

4,62774 

2.70803 


1 9. 1 8620 

4.62774 

2. 70800 






xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


PRESSURE DISTRIBUTION 

AT alpha 2 

-2.000 

DEG. 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

VORTEX 


XV 


YV 


CP 

1 


0.02447 


0,02025 


-0.53002 

2 


0,2061 1 


0.02025 


-0. 17444 

3 


0.50000 


0.02025 


-0.08830 

4 


0.79389 


0.02025 


-0.04403 

5 


0.97553 


0,02025 


-0.01 357 

6 


0.02447 


0.07937 


-0.55666 

7 


0,2061 1 


0, 07937 


-0.17422 

8 


0,50000 


0,07937 


-0.08819 

9 


D. 79389 


0,07937 


-0.04399 

1 0 


0.97553 


0,07937 


-0.01 347 

1 1 


0,02447 


0.17257 


-0.58248 

1 2 


0,20611 


0, 1 7257 


-0.17730 

1 3 


0.50000 


0.17257 


-0,03814 

1 4 


0.79389 


0. 1 7257 


-0.04373 

1 5 


0,97553 


0. 1 7 25 7 


-0.01 337 

1 6 


0.02447 


0, 29229 


-0,60058 

1 7 


0.2061 1 


0. 29229 


-0.18106 

1 8 


0,50000 


0.29229 


-0,03338 

19 


0,79389 


0, 29229 


-0.04341 

20 


0,97553 


0, 29229 


-0.01323 

21 


0,02447 


0.42884 


-0.60922 

22 


0,20611 


0.42884 


-0,13241 

23 


0.50000 


0,42884 


-0.08764 

24 


0,79389 


0.42884 


-0.04252 
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25 

0.97553 

0.42884 

- 0.01291 

26 

0.0244 7 

0.57116 

- 0.60504 

27 

0.20611 

0,57116 

- 0.17894 

28 

0.50000 

0.57116 

- 0,08408 

29 

0.79389 

0,57116 

- 0,04015 

30 

0.97553 

0,57116 

- 0.01 21 2 

31 

0.02447 

0. 70771 

- 0.58248 

32 

0.20611 

n . 70771 

- 0,16761 

3 3 

0.50000 

0,70771 

- 0,07563 

34 

0.79389 

n . 70771 

- 0,03530 

35 

0.97553 

0. 70771 

- 0,01 060 

36 

0.02447 

0 . 82 743 

- 0. 53309 

37 

0.20611 

0.82743 

- 0.14375 

38 

0,50000 

0. 82743 

- 0,06040 

39 

0.79389 

0, 82743 

- 0.02759 

40 

0.97553 

0. 82743 

- 0.00831 

4 1 

0.02447 

0.92063 

- 0.44247 

- 0,10137 

42 

0.20611 

0.92063 

43 

0.50000 

0, 92063 

- 0,03939 

44 

0.79389 

0,92063 

- 0.01 820 

45 

0,97553 

0.92063 

- 0.00566 

46 

0.02447 

0.97975 

- 0.27469 

47 

0.20611 

0,97975 

- 0.04556 

48 

0.50000 

0.97975 

- 0.01 841 

49 

0.79389 

0,97975 

- 0.00894 

50 

0.97553 

0, 97975 

- 0.00320 

5 1 

0.02447 

0. 06699 

- 0.00000 

52 

0,2061 1 

0, 06699 

- 0.00000 

53 

0.50000 

0.06699 

- 0.00000 

54 

0.79389 

0.06699 

- 0.00000 

55 

0,97553 

0,06699 

0.00000 

56 

0.02447 

0, 25000 

- 0.00000 

57 

0.20611 

0,25000 

- 0.00000 

58 

0.50000 

0. 25000 

- 0.00000 

59 

0.79389 

0.25000 

- 0.00000 

60 

0,97553 

0.25000 

- 0.00000 

61 

0.02447 

0, 50000 

- 0,00000 

62 

0.20611 

0, 50000 

“ 0.00000 

63 

0.50000 

0,50000 

- 0,00000 

64 

0.79389 

0, 50000 

- 0,00000 

65 

0,97553 

0,50000 

- 0,00000 

66 

0.02447 

0,75000 

- 0,00000 

67 

0.20611 

0,75000 

- 0.00000 

68 

0.50000 

0. 75000 

- 0 . OQODO 

69 

0.79389 

0,75000 

- 0,00000 

70 

0,97553 

0.75000 

- 0,00000 

71 

0.02447 

0,93301 

- 0.00000 

72 

0,20611 

0.93301 

- 0.00000 

73 

0.50000 

0, 93301 

- 0,00000 

74 

0.79389 

0,93301 

- 0.00000 

75 

0,97553 

0,93301 

“ 0, 00000 
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Y/S 

CL (RIGHT) 

CL (LEFT) 

CM 

CT 

COI 

0.02025 

-0.13605 

-0,13605 

0. 26648 

0.00271 

0.002U3 

0.07937 

-0. 13854 

-0.13854 

0.27224 

0.00313 

0.001 71 

0.17257 

-0.14175 

-0.14175 

0.28021 

0.00344 

0.001 6l 

0.29229 

-n. 14444 

-n. 14444 

0.28797 

0.00366 

0.001 3v 

0.42884 

-0.14514 

-0,14514 

0.29223 

0.00377 

0.0013J 

0.57116 

-0. 14206 

-0.14206 

0.28891 

0.00372 

0.001 24 

0.70771 

-0. 13295 

-0.13295 

0.27280 

0.00347 

0.001 17 

0.82743 

-0. 11511 

-0.11511 

0.23777 

0.00295 

0.001 06 

0.92063 

-0.08629 

-0.08629 

0.17885 

0.00213 

O.OOOoS 

0.97975 

-0.04662 

-0.04662 

0.09669 

0.00107 

0.0005O 

FOLLOWING 

0.06699 

ARE THE TAIL CHARAGTERISTKS 
-O-COOOO -0.00000 

0.00000 

0.00000 

0.00000 

0.25000 

-0,00000 

-O.OQQOO 

0.00000 

0.00000 

o.ooouu 

0-50000 

-0. 00000 

-Q.flQOOO 

0.00000 

O.OOCQG 

0.00000 

0.75000 

-0.00000 

-0.00000 

0.00000 

0.00000 

0.00000 

0.93301 

-0.00000 

-0.00000 

0.00000 

o.coooo 

o.oooou 


*** THE FOLLOWING ARE ATTACHED POTENTIAL FLOW RESULTS *** 

TOTAL LIFT COEFFICIENT = -0.02265 

TOTAL INDUCED DRAG COEFFICIENT = 0.00023 

THE INDUCED DRAG PARAMETER = 0,43964 

TOTAL PITCHING MOMENT COEFFICIENT = 0.04559 

THE WING LIFT COEFFICIENT = -0.02265 

THE WING INDUCED DRAG COEFFICIENT = 0.00023 

THE WING PITCHING MOMENT COEFFICIENT = 0.04559 

THE TAIL LIFT COEFFICIENT = 0, (BASED ON WING AREA). = 0. (BASED ON TAIL AREA) 

THE TAIL PITCHING MOMENT COEFFICIENT BASED ON REFERENCE WING AREA 
AND MEAN WING CHORD. AND REFERRED TO THE Y-AXIS = 0. 

(NOTE. THE INDUCED DRAG COMPUTATION IS FOR SYMMETRICAL LOADING ONLY) 
****************************************** 

THE FOLLOWING PARAMETERS ARE USED IN THE METHOD OF SUCTION ANALOGY 


CLP = 

-0.02263 

CLVLE = 

-0.00058 

CLVSF = 

-0.00016 

CDP = 

0.00079 

CDVLE = 

0,00002 

CDVSE = 

0.00001 

CMP = 

0.04559 

CMVLE = 

0.00109 

CMVSE = 

' 0.00036 





•STABILITY DERIVATIVES BY POTENTIAL FLOW THEORY* 




♦••STABILITY DERIVATIVES EVALUATED AT ALPHA » -2.000 DEGREES 

AND AT MACH N0.« 0. ^BASED ON BODY AXESdN PER RADIAN)*** 

CYB s -0-1692203 CLB « -0.0379778 CNB * 0.1747360 

CYP = -0*0769056 CLP * -0.0760935 CNP * 0.0825351 

CYR * 0.4059052 CLR » 0.0921547 CNR « -0.4236924 


•••STABILITY DERIVATIVES BASED ON STABILITY AXES*** 

CYB s -0.1692203 CLB » -0.0440529 CNB s 0.1733041 

CYP s -0*0910246 CLP * -0.0826097 CNP * 0.0944460 

CYR = 0.4029740 CLR s 0.1040656 CNR * -0,4171761 

*STABILITY DERIVATIVES WITH EDGE VORTEX SEPARATION* 

*******«*******Vk******'*«*******«***it**** 


•••STABILITY DERIVATIVES EVALUATED AT ALPHA = -2.000 DEGREES 

AND AT MACH N0,« 0. /BASED ON BODY AXESUN PER RADIAN)*** 


••INCLUDING THE EFFECT OF LE AND SE VORTEX LIFT* 


CYB 

ss 

-0,1704073 

CLB 

s -0,0384587 

CNB a 

0.1762162 

C YP 

s 

-0,0685944 

CLP 

s -0.0696868 

CNP a 

0.0707230 

C YR 

s 

0,4066442 

CLR 

s 0,0931148 

CNR a 

-0.4250563 

STABILITY DERIVATIVES 

BASED ON STABILITY AXES*** 

CYB 

s 

-0,1704073 

CLB 

a -0.0445851 

CNB a 

0.1747666 

C YP 


-0.0827443 

CLP 

a -0.0758340 

CNP a 

0.0829181 

C YR 

s: 

0,4040026 

CLR 

a 0.1053099 

CNR a 

-0.41 89091 


♦♦•STABILITY DERIVATIVES EVALUATED AT ALPHA = -2.000 DEGREES 

AND AT MACH NO. « 0. /BASED ON BODY AXESdN PER RADIAN)*** 

♦INCLUDING THE EFFECT OF LE VORTEX LIFT* 

CYB = -0,1701461 CLB = -0.0383281 CNB = 0.1759301 

CYP s -0,0749457 CLP = -0.0728624 CNP = 0.0776267 

CYR = 0,4061316 CLR * 0.0928586 CNR = -0,4244940 

♦♦♦STABILITY DERIVATIVES BASED ON STABILITY AXES*** 

CYB « -0,1701461 CLB * -0,0444446 CNB * 0.1744853 

CYP s -0,0890738 CLP = -0,0792370 CNP = 0.0896834 

CYR = 0,4032687 CLR * 0.1049152 CNR = -0,4181195 
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THE FOLLOWING BENDING MOMENT COEFFICIENT IS RASED ON Q*S*(3/2)/ 
WHERE S = 326,60000 AND B/2 = 7,72500 

(FOR ATTACHED POTENTIAL FLOW ONLY) 


Y/S 

BM(RIGHT) 

BM (LEFT) 

0,02025 

-0,00469 


-0, 00469 

0.07937 

-0, 00406 


-0.00406 

0 . 1 7 2 5 7 

-0,00317 


-0.0031 7 

0.29229 

-0,00219 


-0.0021 9 

0,42884 

-0,001 32 


-0,00132 

0.57116 

-0,00066 


-0.00066 

0.70771 

-0,00026 


-0,00026 

0,82743 

-0,00007 


-0, 00007 

0,92063 

-0,00001 


-0,00001 

0,97975 

-0,00000 


-0,00000 

THE FOLLOWING 

ARE THE TAIL 

CHARACTERISTICS BASED ON TAIL GEOMETRY 

WHERE S 

= 22,77000 

AND 

B/2 = 4,96000 

0,06699 

-0,00000 


-0,00000 

0,25000 

- 0» 00000 


-0,00000 

0.50000 

-0^00000 


-n. 00000 

0.75000 

-0, 00000 


-0,00000 

0,93301 

-0,00000 


-o.noooo 

THE BENDING MOMENT 

COEFFICIENT 

BASED ON WING HALF SPAN AND WING AREA 


AT THE WING ROOT ^ -0,004920 (RIGHT)^ = -0,004920 (LEFT) 


THE BENDING MOMENT COEFFICIENT BASED ON TAIL HALF SPAN AND TAIL AREA 

AT THE TAIL ROOT s -0,000000 (RlGHT)^ = -0.000000 (LEFT) 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PRESSURE DISTRIBUTION AT ALPHA = 4.000 DEG. 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


VORTEX 

XV 

1 

0.02447 

2 

0.20611 

3 

0,50000 

4 

0.79389 

5 

0,97555 

6 

0.02447 

7 

0,2061 1 

8 

0 , 5 GOOO 

9 

0,79389 

1 n 

0.97553 

1 1 

0.02447 

1 2 

0,20611 

1 3 

0.50000 

1 4 

0,79389 

1 5 

0.97553 

1 6 

0.02447 

1 7 

0.20611 

1 8 

0.50000 

1 9 

C . 79389 

20 

0.97553 

21 

0.02447 

22 

0.2061 1 

23 

0.50000 

24 

0.79389 

25 

0.97553 

26 

0,02447 

27 

0.2061 1 

28 

0,50000 

29 

0.79389 

30 

0.97553 

31 

0.02447 

32 

0,20611 

33 

0.50000 

34 

0.79389 

35 

0.97553 

36 

0.02447 

37 

0.20611 

38 

0.50000 

39 

0.79389 

40 

C . 97553 

4 1 

0.02447 

42 

0.20611 

43 

0.50000 

44 

0.79389 

45 

0.97553 

46 

0.02447 

47 

0.20611 

48 

0.50000 

49 

0.79389 

50 

0.97553 

51 

0,02447 

52 

0,20611 

53 

0 . 5 C 000 

54 

0.79389 

55 

0.97553 

56 

0.02447 

57 

0.20611 

58 

0.50000 

59 

0.79389 

60 

0.97553 

61 

0,02447 

62 

0.20611 

63 

0.50000 

64 

0.79389 

65 

0.97553 

66 

Q . 02447 

67 

0.20611 

68 

0.50000 

69 

0.79389 

70 

0.97553 

71 

0,02447 

72 

0.20611 

73 

0,50000 

74 

0,79389 

75 

0,97553 


YV 

CP 

0. 02025 

1 ,05 746 

0. 02025 

0,34803 

0,02025 

0.17616 

0, 02025 

0.08784 

0.02025 

0.02708 

0.07937 

1.11062 

0.07937 

0.34759 

0. 07937 

l). 1 7594 

0,07937 

0.08777 

0,07937 

0.02688 

0,17257 

1.16212 

0. 1 7257 

0.35374 

0,17257 

0.17584 

0. 17257 

0.08726 

0, 17257 

0.02667 

0.29229 

1 .1 9824 

0. 29229 

0.36124 

0.29229 

0.17632 

0. 29229 

0.08661 

0.29229 

0.02640 

0.42884 

1.21547 

0,42884 

0,36394 

0,42884 

0.17485 

0,42884 

0.08484 

0,42884 

0.02575 

0, 57116 

1.20713 

0.57116 

0.35701 

0.57116 

0.16776 

0.57116 

0.08009 

0,57116 

0.02418 

0. 70771 

1.16212 

0, 70771 

0. 33441 

0, 70771 

0.15089 

0. 70771 

0.07042 

0.70771 

0.02116 

0.82743 

1 , 06358 

0,82743 

0.28680 

0, 82743 

0.12050 

0,82743 

0.05504 

0.82743 

0.01658 

0. 92063 

0.88278 

0.92063 

0.20225 

0.92063 

0.07859 

0. 92063 

0.03632 

0.92063 

0,01 129 

0.97975 

0.54804 

0.97975 

0.09090 

0.97975 

0.03673 

0.97975 

0.01784 

0.97975 

0.00638 

0. 06699 

0.00000 

0.06699 

o.oonoo 

0,06699 

0.00000 

0.06699 

0.00000 

0,06699 

-0.00000 

0.25000 

0.00000 

0.25000 

0.00000 

0, 25000 

o.oonoo 

0. 25000 

0.00000 

0,25000 

0.00000 

0,50000 

0.00000 

0, 50000 

0.00000 

0. 5OO0O 

O.OQOOO 

0.50000 

0.00000 

0. 50000 

o.oonoo 

0.75000 

0.00000 

0, 75000 

0.00000 

0. 75000 

0.00000 

0.75000 

0.00000 

0.75000 

0.00000 

0,93301 

0.00000 

0.93301 

0.00000 

0,93301 

0,00000 

0. 93301 

-0.00000 

0. 93301 

-o.oonoo 
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Y/S 

CL (R I GHT ) 

CL(LEFT) 

CM 

0.02025 

0.27151 

0.27151 

-0.53167 

0.07937 

0. 27655 

0.27655 

-0. 54 31 5 

0. 1 7257 

0. 28300 

0. 28300 

-0.55905 

0.29229 

0. 28842 

0.28842 

-0. 57453 

0.42884 

0. 28983 

0.28983 

-0. 58304 

0.57116 

0. 28368 

0. 28368 

-0. 57640 

0.70771 

0.26549 

0.26549 

-0.54427 

0.82743 

0.22986 

0.22986 

-0.47437 

0.92063 

0. 17229 

0.17229 

-0. 35682 

0.97975 

0.09307 

0.09307 

-0.19291 

FOLLOWING ARE 

THE TAIL CHARACTERISTICS 


0.06699 

0.00000 

0.00000 

-0.00000 

0.25000 

0.00000 

0.00000 

-0.00000 

0.50000 

0.00000 

0,00000 

-0. 00000 

0.75000 

0-00000 

0.00000 

-0.00000 

0.93301 

0.00000 

G. 00000 

-0.00000 


*** THE FOLLOWING ARE ATTACHED POTENTIAL FLOW RESULTS *** 
TOTAL LIFT COEFFICIENT = O.OA522 

TOTAL INDUCED DRAG COEFFICIENT = 0.00090 

THE INDUCED DRAG PARA'^tETER = 0,43975 

TOTAL PITCHING MOMENT COEFFICIENT = -0.09096 

THE WING LIFT COEFFICIENT = 0.045?? 

THE WING INDUCED DRAG COEFFICIENT = 0.00099 


C T 

0.01085 


0.01373 

0.01461 

0.01504 

0,01488 

0.01387 

0.01180 

0.00851 

0.00427 


0.00000 

0.00000 

0.00000 

0.00000 

0.00000 


C D I 

0.0081 1 

0. 006au 
0. 006u5 
0.00553 
0.0051 V 
0.0049a 
0 . 004 00 
0.004^5 
0.0035a 
0. 0022a 


0 , OOOuO 
O.OOOUU 
0.00000 
0.00000 
o.oooou 


THE WING PITCHING MOMENT COEFFICIENT = -0.09096 

THE TAIL LIFT COEFFICIENT = 0. (BASED ON WING AREA)^ = 0. (BASED ON TAIL 

THE TAIL PITCHING MOMENT COEFFICIENT BASED ON REFERENCE WING AREA 
AND MEAN WING CHORD^ AND REFERRED TO THE Y-AXIS = 0. 

(NOTE. THE INDUCED DRAG COMPUTATION IS FOR SYMMETRICAL LOADING ONLY) 




THE FOLLOWING PARAMETERS ARE USED IN THE METHOD OF SUCTION ANALOGY 


CLP = 

0,04506 

CLVLE = 

0.00230 

CLVSE = 

0.00064 

CDP = 

0,0031 5 

CDVLE = 

0.0001 6 

CDVSE = 

0.00004 

CMP = 

-0,00096 

CMVLE = 

-0.00437 

CMVSE = 

-0.001 43 


AREA 





♦STABILITY DERIVATIVES BY POTENTIAL FLOW THEORY* 

••♦STABILITY DERIVATIVES EVALUATED AT ALPHA = 4,000 

AND AT MACH N0.= 0. #BASED ON BODY AXESCIN PER RA 


DEGREES 

DIAN)^*^ 


C YB 

s 

-0, 16521 73 

CLB » 

-0,0361644 

CNB 

s 

0. 

1 704872 

C YP 

s 

-0,C518568 

CLP s 

-0,0799039 

CNP 

s 

0. 

0469839 

C YR 

s 

0.4002541 

CLR = 

0.0860504 

CNR 

S! 

-0. 

41 73858 

♦♦♦STABILITY DERIVATIVES BASED ON STABILITY 

AXES*** 


C YB 

s 

-0, 16521 73 

CLB 3 

-0.0241837 

CNB 

5S 

0. 

1725946 

C YP 

s 

-0.02381 02 

CLP 

-0,0722887 

CNP 

s 

0. 

0228523 

C YR 

s 

0.4028964 

CLR = 

0.0619189 

CNR 

3 

-0. 

425001 1 

*********** 

♦STABILITY 

************ 

DERIVATIVES 

WITH EDGE VORTEX 

SEPARATION^ 





♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA = 4.000 DEGREES 

AND AT MACH N0,« 0. #BASED ON BODY AXESIIN PER RADIAN)^*^ 


♦♦INCLUDING THE EFFECT OF LE AND SE VORTEX LIFT^ 


C YB 

s 

-0.164371 1 

CLB 


-0.0337119 

CNB 

3 

0.1678057 

C YP 

= 

-0.0684690 

CLP 

3 

-0.0920946 

CNP 

S 

0.0705937 

C YR 

3 

0.3897360 

CLR 

3 

0.0793132 

CNR 

3 

-0.4021 554 

STABILITY DERIVATIVES 

BASED ON STABILITY 

AXES*** 

C YB 

3 

-0.1643711 

CLB 

3 

-0,0219242 

CNB 

3 

0.1697485 

C YP 

S 

-0.04111 56 

CLP 

3 

-0,083171 8 

CNP 

S 

0,0482882 

C YR 

S 

0.3935628 

CLR 

3 

0.0570077 

CNR 

3 

-0,4110781 


♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA = 4.000 DEGREES 

AND AT MACH N0,« 0. ^BASEO ON BODY AXESUN PER RADIAN)**^ 

♦INCLUDING THE EFFECT OF LE VORTEX LIFT* 


C YB 

S 

-0.1659218 

CLB 

3 

-0.0344873 

CNB 

3 

0.1694948 

C YP 

3 

-0.0557742 

CLP 

3 

-0.0857472 

CNP 

3 

0,0567947 

C YR 

■S 

0.3941712 

CLR 

3 

0.0815308 

CNR 

3 

-0,4069859 

♦♦♦STABILITY DERIVATIVES BASED ON STABILITY AXES*^^ 

C YB 

= 

-0. 165921 8 

CLB 

3 

-0.0225799 

CNB 

S 

0.1 714876 

C YP 


-0.0281423 

CLP 

3 

-0.0776847 

CNP 

3 

0,0337677 

C YR 

s 

0.3971017 

CLR 

S 

0.0585039 

CNR 

S 

-0.4150484 
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THE FOLLOWING BENDING MOMENT COEFFICIENT IS BASED ON Q*S*(3/2)-» 
WHERE S = 326.60000 AND P/2 = 7.72500 

(FOR ATTACHED POTENTIAL FLOW ONLY) 


Y/S 

BM(RIGHT) BM(LEFT) 

0.02025 

0.00937 

0,00937 

0.07937 

0.0081 1 

0.0081 1 

0.17257 

0.00632 

0.00632 

0.29229 

0.004 3 8 

0.00438 

0.42884 

0.00264 

0.00264 

0.57116 

0.00133 

0.00133 

0.70771 

0.00053 

0.00053 

0.82743 

0.00014 

0.0001 4 

0.92063 

0.00002 

0.00002 

0.97975 

0,00000 

0.00000 

THE FOLLOWING 

ARE THE TAIL 

CHARACTERISTICS BASED ON TAIL GEOMETRY/ 

WHERE S 

= 22.77000 

AND a/2 = 4.96000 

0.06699 

0.00000 

0.00000 

0.25000 

0,00000 

0,00000 

0.50000 

0.00000 

0.00000 

0.75000 

0,00000 

0.00000 

0.93301 

0.00000 

0,00000- 


THE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAN AND WING AREA 

AT THE WING ROOT = 0.009824 (RIGHT)/ = 0.009824 (LEFT) 


THE BENDING MOMENT COEFFICIENT BASED ON TAIL HALF SPAN AND TAIL AREA 

AT THE TAIL ROOT = 0.000000 (RIGHT)/ = 0.000000 (LEFT) 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PRESSURE DISTRIBUTION AT ALPHA = 10,000 DEG . 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


VORTEX 

XV 

YV 

CP 

1 

0.02447 

0.02025 

2.59872 

2 

0.20611 

0.02025 

0.85530 

3 

0.50000 

0.02025 

0.43293 

4 

0.79389 

0.02025 

0.21587 

5 

0.97553 

0. 02025 

0.06654 

6 

0.02447 

0.07937 

2.72936 

7 

0.20611 

0.07937 

0.85421 

8 

0.50000 

0.07937 

0.43238 

9 

0.79389 

0.07937 

0.21569 

1 0 

0.97553 

0.07937 

0.06606 

1 1 

0.02447 

0.17257 

2.85593 

1 2 

0.20611 

0.17257 

0.86933 

1 3 

0.50000 

0. 17257 

0.45214 

1 4 
1 5 


0.17257 

0.17257 

0.21443 
0. 06554 

1 6 

0.02447 

0.29229 

2.94470 

- 1 7 

0.20611 

0, 29229 

0.83775 

1 8 

0.50000 

0. 29229 

0.43332 

1 9 

0.79389 

0, 29229 

0.21284 

20 

0.97553 

0. 29229 

0.06487 

21 

0.02447 

0.42884 

2.98704 

22 

0.20611 

0.42884 

0.89438 

2 3 

0.50000 

0.42884 

0.42969 

24 

0.79389 

0.42884 

0.20849 

25 

0.97553 

0.42884 

0. 06328 

26 

0.02447 

0.57116 

2.96654 

27 

0.20611 

0.57116 

0.87735 

28 

0.50C00 

0.57116 

0.41 227 

29 

0.79389 

0.57116 

0.1 9683 

30 

0.97553 

0.57116 

0.05943 

3 1 

0.02447 

0. 70771 

2.85593 

32 

0.2061 1 

0.70771 

0.82182 

33 

0.50000 

0.70771 

0. 37080 

34 

0.79389 

0, 70771 

0.17305 

35 

0.97553 

0.70771 

0,05199 

36 

0.02447 

0.82743 

2.61 377 

37 

0.2061 1 

0 . 82745 

0.70481 

38 

0.50000 

0.82743 

0.2961 2 

39 

0.79389 

0.82743 

0.1 5526 

40 

0.97553 

0.82743 

0.04074 

4 1 

0.02447 

0.92063 

2.16946 

42 

0.20611 

0.92063 

0.49702 

4 3 

0.50000 

0.92063 

3.19314 

44 

0.79389 

0. 92063 

0.08925 

45 

0.97553 

0.92063 

0.02774 

46 

0 . 0244 ? 

0.97975 

1.34682 

47 

0.20611 

0.97975 

0,22338 

48 

0.50000 

0.97975 

0.09027 

49 

0.79389 

0.97975 

0.04384 

50 

0.97553 

0,97975 

0 . 01 568 

51 

0,02447 

0. 06699 

0.00000 

52 

0.20611 

Q . 06699 

0.00000 

53 

0.50000 

0.06699 

0.00000 

54 

0.79389 

0. 06699 

0.00000 

55 

0.97553 

0.06699 

- 0.00000 

56 

0.02447 

0.25000 

0.00000 

57 

0.20611 

0.25000 

0.00000 

58 

0.50000 

0.25000 

0.00000 

59 

0.79389 

0.25000 

0.00000 

60 

0.97553 

0,25000 

0.00000 

61 

0 , 0244 ^ 

0. 50000 

0.00000 

62 

0.20611 

0.50000 

0.00000 

63 

0.50000 

0.50000 

0.00000 

64 

0.79389 

0. 50000 

0.00000 

65 

0,97553 

0.50000 

O.OQOOO 

66 

0,02447 

0. 75000 

0.00000 

67 

0.2 06 11 

0.75000 

0.03000 

68 

0.50000 

0,75000 

0.00000 

69 

• 0,79389 

0,75000 

0.00000 

70 

0.97553 

0. 75000 

0.00000 

71 

0.02447 

0.93301 

0.00000 

72 

0.20611 

0,93301 

0.00000 

73 

0.50000 

0.93301 

- 0.00000 

71 , 

0.79389 

0,93301 

- 0, 00000 

75 

0.97553 

0.93301 

- 0.00000 
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Y/ S 

CL (RIGHT) 

CL(LEFT) 

CM 

CT 

CDI 

0.02025 

0.66854 

0.66854 

-1.30653 

0.06721 

0,04963 

0.07937 

0.68228 

0.68228 

-1.33481 

0.07750 

0.04161 

0.17257 

0. 69905 

0.69905 

-1.37387 

0.08508 

0.03666 

0.29229 

0. 71 299 

0.71 299 

-1.41192 

0.09051 

0.03361 

0.42884 

0. 71 680 

0. 71680 

-1.43283 

0.09322 

0.031 73 

0.57116 

0. 70172 

0.70172 

-1.41652 

0.09218 

0.03013 

0.70771 

0. 65668 

0.65668 

-1.33756 

0.08597 

0.0285U 

0.82743 

0. 56837 

0. 56837 

-1.16573 

0.07311 

0.02596 

0.92063 

0. 42572 

0.42572 

-0,87689 

0.05275 

0.02151 

0.97975 

0.22967 

0.22967 

-0.47403 

0,02645 

0.01364 

THE FOLLOWING ARE 
0.06699 

THE TAIL CHARACTERISTICS 
0.00000 0.00000 

-9.00000 

O.OOUCO 

O.OOOUU 

0.25000 

0,00000 

0.00000 

-0.00000 

0.00000 

0. OOOOU 

0.50000 

0.00000 

0.00000 

-0.00000 

0.00000 

0. OOOUO 

0.75000 

o.onooo 

0.00000 

-0.00000 

o.oocoo 

0.00000 

0.93301 

0.00000 

0.00000 

-0.00000 

0.00000 

-0. OOOUO 


*** THE FOLLOWING ARE ATTACHED POTENTIAL FLOW RESULTS *** 

TOTAL LIFT COEFFICIENT = 0.1117A 

TOTAL INDUCED DRAG COEFFICIENT = 0.00550 

THE INDUCED DRAG PARAMETER = 0.4A047 

TOTAL PITCHING MOMENT COEFFICIENT = -0.22354 

THE WING LIFT COEFFICIENT = 0.11174 

THE WING INDUCED DRAG COEFFICIENT = 0.00550 

THE WING PITCHING MOMENT COEFFICIENT = -0.22354 

THE TAIL LIFT COEFFICIENT = 0. (BASED ON WING AREA)^ = 0. (BASED ON TAIL AREA) 

THE TAIL PITCHING MOMENT COEFFICIENT BASED ON REFERENCE WING AREA 
AND MEAN WING CHORD, AND REFERRED TO THE Y-AXIS = 0. 

(NOTE. THE INDUCED DRAG COMPUTATION IS FOR SYMMETRICAL LOADING ONLY) 
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THE FOLLOWING PARAMETERS ARE USED IN THE METHOD OF SUCTION ANALOGY 


CLP = 

0.10932 

CLVLE = 

0.01404 

CLVSE = 

0.00389 

CDP = 

0.01928 

CDVLE = 

0.00248 

CDVSE = 

0.00069 

CMP = 

-0.22354 

CMVLE = 

-0.0,2706 

CMVSE = 

- -0,00886 


kkkkkkkkkk 


kkkkkkkkkkkkkkkkkkkkkkkk 



it it ii It * 


it is it it it it is it 


♦STABILITY DERIVATIVES BY POTENTIAL FLOW THEORY* 

♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA s tO.OOO DEGREES 
AND AT MACH NO«* 0. ^BASED ON BODY AXESCIN PER RADIAN)*** 

CYB = ”0,1736853 CLB = -0,0309358 CNB « 0,1831156 

CYP = -0,0262398 CLP * -0,0828390 CNP * 0.0109179 

CYR = 0.4509616 CLR « 0.0618147 CNR « -0.4841812 

***STABILITY DERIVATIVES BASED ON STABILITY AXES*** 

CYB = -0,1736853 CLB s 0.0013319 CNB ® 0.1857056 

CYP = 0,0524675 CLP s -0.0825029 CNP * -0.0599088 

CYR = 0.4486670 CLR « -0.0090120 CNR = -0.4845172 

♦STABILITY DERIVATIVES WITH EDGE VORTEX SEPARATION* 

♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA » 10,000 DEGREES 

AND AT MACH NO.s 0. #8ASED ON BODY AXESUN PER RADIAN)*** 

♦♦INCLUDING THE EFFECT OF LE AND SE VORTEX LIFT* 

CYB » -0,1727723 CLB * -0.01 9261 1 CNB « 0.1 733771 

CYP * -0,0675935 CLP » -0.1116661 CNP * 0.0696910 

CYR « 0,3892940 CLR » 0.0227515 CNR » -0.3957882 

♦♦♦STABILITY DERIVATIVES BASED ON STABILITY AXES*** 

CYB » -0,1727723 CLB * 0.0111382 CNB » 0.1740878 

CYP = 0,0010336 CLP ® -0.1044248 CNP s 0,0183158 

CYR = 0,39511 72 CLR » -0,0286237 CNR » -0,4030295 

♦♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA * 10,000 DEGREES 

AND AT MACH N0.« 0. /BASED ON BODY AXESUN PER RADIAN)*** 

* INCLUDING THE EFFECT OF LE VORTEX LIFT* 

CYB = -0.1806514 CLB = -0.0232006 CNB = 0.1819484 

CYP = -0.0359916 CLP » -0.0958652 CNP = 0.0353404 

CYR » 0, 4171407 CLR » 0.0366749 CNR * -0.426091 7 

♦♦♦STABILITY DERIVATIVES BASED ON STABILITY AXES*** 

CYB = -0,1306514 CLB s 0.0087469 CNB = 0-1832129 

CYP = 0.0369909 CLP = -0.0935074 CNP = -0.0233032 

CYR = 0,41 70532 CLR » -0.0219687 CNR - -0.4284495 
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THE FOLLOWING BENDING MOMENT COEFFICIENT IS BASED ON Q*S*(3/2)^ 
WHERE S = 326.60000 AND B/2 = 7.72500 

(FOR ATTACHED POTENTIAL FLOW ONLY) 


Y/S 

BM(RIGHT) 

0M (LEFT) 

0.02025 

0.02317 

0.0231 7 

0.07937 

0.02005 

0.02005 

0.1 7257 

0.01564 

0.01 564 

0.29229 

0,01083 

0.01 083 

0.42884 

0,00652 

0.00652 

0.57116 

0.00323 

0.00328 

0.70771 

0.00130 

0.00130 

0.82743 

0.00036 

0.00036 

0.92063 

0.00005 

0.00005 

0.97975 

0,00000 

0.00000 

THE FOLLOWING 

ARE THE TAIL CHARACTERISTICS BASED ON TAIL GEOMETRY 

WHERE S 

= 22.77000 AND 

B/2 = 4.96000 

0.06699 

0.00000 

0.00000 

0.25000 

0,00000 

0.00000 

0.50000 

0.00000 

0. 00000 

0.75000 

0.00000 

0.00000 

0.93301 

0.00000 

0.00000 


THE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAN AND WING AREA 

AT THE WING ROOT = 0.02A290 (RIGHT)x = 0.024290 (LEFT) 


THE BENDING MOMENT COEFFICIENT BASED ON TAIL HALF SPAN AND TAIL AREA 

AT the TAIL ROOT = 0.000000 (RIGHT), = 0.000000 (LEFT) 
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Appendix B 


Program Listing 


This Program is operational on the Honeywell 66/60 computer 
system at the University of Kansas. 
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QVLM 

THIS PROGRAM IS BASED ON THE OUASI VORTEX LATTICE METHOD BY 
C. EDWARD LAN Of UNIVERSITY OF KANSAS 

REFERENCE JOURNAL OF AIRCRAFT VOL. 11^ NO. 9 , SEPT. 1974^ PP.518 
-527 


*** GAMMA MUST BE DIMENSIONED TO HAVE AT LEAST <N+1)**2/4 ELEMENTS^ 
WHERE N IS THE SIZE OF THE MATRIX *** 


DIMENSION GAMMA(19600) 

* IP SHOULD BE CONSISTENT WITH MATRIX SIZE, IF IP IS INCREASED# 
DIMENSION FOR GAMMA SHOULD ALSO BE INCREASED. 

PARAMETER IP=140 
DIMENSION 0O<IP#IP) 

EQUIVALENCE (OQ { 1 #1 ) #6AMMA(1 ) ) 


DIMENSION CP<200)# AW<201># CA(20D# DMM(200) 

DIMENSION XXL<2) # YL(2)# XXT(2) # CPCWLd 5) # CPSWL(3D# YBREAK(IO) 
DIMENSION ALPHI 50)# SNALPC50)# CLS<50># DC0S<7) # 0SIN<7># CLY ( 50)# 
1 CNALP<50) 

DIMENSION BREAK! 10)# SWP ( 1 0#1 5) # CH0RDT<4)# TFLP(5)# CTP(2) 
DIMENSION BMR (50) # BML (50) # DF (5)# TITLE(13)# CSU(50)# YCN(6) 
COMMON /SCHEME/ CC2)#X(10#41)#Y(10#41)#SL0PE(15)#XL(2#15)#XTT(41)# 

COMMON /GEOM/ HALFSW#XCP(200)#YCP(200)#ZCP(200)#XLE(100)#YLE(100)# 
1XT£(100)#PSK30> #CH<100)#XV(200)#YV<200) #SN< 1 0 #3) # XN ( 200# 2 ) # YN ( 200 
2#2)#ZN(200#2)#wIDTH(7)#YCON(51)#SWEEP(100)#HALF8#SJ(31#7) 

COMMON /AERO/ AM # B# C L ( 5 0 ) # C T ( 50 ) # C D ( 5 0) # C M ( 50) 

COMMON /CONST/ NCS#NCW#M1(7)#MJWl(2#5)#MJW2(2#5)#NJW(5)#NFP#NW(2) 
COMMON /C AMB/ ICAM#IM#XT(3#12)#ZC(3#12)#AAM(3#11 ) #BBM (3#11 )#CCM(3# 
1 1 1 )#DDM(3#11) 

COMMON /EXTRA/ CAMLE1#CAMLE2#CAMLE3#YTW#IST#TINP#N6RD#HEIGHT#ATT#N 
1C#NWING#HALFBH#1P0S#IALP 

COMMON /BETA/ GMAX(50)#XTG(50)#YTG(50)#ZTG(50)#82#NCG#CT6(15)#STG( 
1 1 5 ) #DI ST 

DIMENSION GAMP(2UU) # 6AMX ( 200 ) # GAMB( 200) # GAMR (200) 

EQUI VAL ENCE (G AMP ( 1 ) # GAMM A ( 2 0 1 ) ) # (6 AMB ( 1 ) #GAMMA ( 401 ) ) # ( GAMX < 1 ) # 

1 GAMMAC 6U1 ) )# ( G AM R ( 1 ) # G AMM A ( 801 ) ) 

PI=3.1 4159265 
DO 221 I-1#1U 

221 BREAK(I)=0« 

PIS=PI*2, 


***NUMBER OF CASES TO BE RUN *** 

READ ( 5# 148) ICASE 
WR ITE (6# 148) I CASE 
NC0N=1 
IW6LT=0 
1 CONTINUE 

**★ USER* S CASE NUMBER *** 

NGRD=1 IF THE WING 1 S IN GROUND EFFECT# =0 OTHERWISE 
READ <5# 148) NCASE#NGRD 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


A 42 
A 43 
A 4 4 
A 45 
A 46 
A 4 7 
A 48 
A 49 
A 50 
A 51 
A 52 
A 53 
A 54 
A 55 


WRITE (6# 152) 


A 56 
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00 


WRITE (6/ 15U) NCASE 
WRITE ( 6 , 152) 

*** CASE TITLE *** 

READ (5^ 163) (riTLE(I)/I*1^13) 

WRITE (6/ 152) 

WRITE (6# 165) ( TITLE! I)/-I=1^13) 

WRITE ( 6 , 152) 

NCS = 0 
IPANEL=1 
WRITE (6^ 153) 

***TOTAL NUMBER OF SPANWI SE SECTIONS^ AND THE NUMBER OF VORTEX STRIPS 
IN EACH SECTION PLUS ONE *** 


IW1N6»LAST WING VORTEX STRIP NUMBER IF A TAIL IS PRESENT^ =0 
OTHERWISE. 

***NWIN6 = THE NUMERICAL ORDER OF LAST WING SPANWISE SECTION *** 

** IW6LT*1 If A WINGLET TO BE REPRESENTED BY A TAIL IS PRESENT ** 

AO- IWGLT»2 If THE WINGLET IS AT A LOCATION AWAY FROM THE WING TIP ** 

READ <54^ 14S) NC^fCMl <I)^I*UNC)^IWIN6^NWING#IWGLT 
WRITE (6^ 146) NC^ (Ml ( I ) ^ I «1 4> NC ) 4> I W ING ^N W I NG# I WGLT 

***NFP*NUMBER Of FLAP SPANS. 

NJW-NUMERICAL ORDERS OF FLAP SPANS AMONG THE SPANWISE SECTIONS* 

* NOTE. THE NUMBER OF FLAP SPANS IS LIMITED TO FIVE * 

FOR A CLEAN OR FULL-SPAN FLAP CONFIGURATION, PUT NFP=NJW<1)=1 
* NVRTX=VORTEX STRIP NUMBER AT AND OUTBOARD Of WHICH THE L.E. VORTEX 
LIFT EFFECT IS NOT INCLUDED. IF IT IS ZERO, TOTAL VORTEX LIFT 
EFFECT IS ASSUMED. 

READ (5, 146) NfP, (NJW(I),I=1 ,NFP),NVRTX 
WRITE (6, 146) NFP,(NJW(I) ,I=1,NFP),NVRTX 

*** NUMBER OF CHORDwISE VORTEX ELEMENTS IN CHORDWISE SECTIONS, CAMBER 
CODE (=1 IF CAMBER ORDINATES ARE TO BE READ IN, =0 IF THE CAMBER 
FUNCTIONS ARE DEFINED BY CLOSED-FORM EXPRESSIONS MANUALLY IN 
SUBPROGRAMS 2 CR ( X ) , Z Cl ( X ) AND ZCT(X)), AND THE NUMBER Of CAMBER 
ORDINATES TO BE READ IN (ARBITRARY If ICAM=0), AND NUMBER Of 
STATIONS AT WHICH CAMBER ORDINATES ARE READ IN (=2 AT MOST IF 
THERE IS NO CHANGE IN TWIST AT AN INTERMEDIATE STATION) *** 

ICAMT=1 If THE TAIL, WINGLET OR VERTICAL FIN HAS CAMBER. IN THIS 
CASE, CAMBER ORDINATES AT WING ROOT, WING TIP (REGARDED AS INTER- 
MEDIATE STATION) AND TAIL SHOULD BE ALL READ IN. =0 OTHERWISE. 

READ (5, 146) (NW(I),I=1,2),ICAM,IM,IST,ICAMT 
WRITE (6, 148) ( NW ( I ) , 1 = 1 ,2), IC AM, IM, I ST, I C AMT 

*** IF ICAM=1, READ IN THE X-COOROINATE S AND THE CAMBER ORDINATES 

FOR THE ROOT SECTION, THE INTERMEDIATE SECTION AND THE TIP SECTION 
SUCCESSIVELY *** 

* NOTE. THE MAXIMUM NUMBER OF CAMBER ORDINATES ALLOWED IS 11 * 

IF ( ICAM .NE. 1 ) 60 TO 3 
DO 2 1=1, 1ST 


57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
36 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A 1 00 
A 101 
A 102 
A 103 
A 104 
A 105 
A 1 06 
A 107 
A 108 
A 109 
A 110 
A 111 
A 1 12 


READ (5, 147) ( X T ( I, J ) , J =1 , IM ) 
READ (5, 147) ( Z C ( 1 , J ) , J =1 , IM ) 


A 113 
A 1 14 


2 
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CALL SPLINE ( I M , X T , 7 C ^ A A B 0 M / C C M / D D 1 1 S T ) 

3 CONTINUE 

IF (ICAN .EO. 0) IST=1 

*** LATERAL MODE SELECTOR (=-1 IF THE ROLLING MOMENT CDEFFICIEnI aT A 
GIVEN AILERON ANGLE IS DESIRED/. =0 FOR NO LATERAL MODE OF MuTiON/ 
AND =1 IF LATERAL-DIRECTIONAL DERIVATIVES ARE TO BE COMPUTED) *** 

*** NAL=NUMER IC AL ORDER OF AILERON SPAN (=0 IF LAT=0) *** 

READ ( 3 , 148) LAT/-NAL 
WRITE ( 6 , 148) LAT^NAL 
NC W=NW (1 ) 

L = 1 

CHORDT (2)=0. 

CHORDT (3)=0. 

CHORDT C4) = 0, 

IV = 0 
IDIH=0 
B2 = 0. 

DIST=0, 

4 CONTINUE 
LL=1 
FN=NCW 

DO 5 I=1/NCW 
FI = I 

CPC WL { I )-0.5*( 1 .-COS (<2.*FI-1.)*PI/(2.*FN))) 

SN< I/L)=2,*SQRT(CPCWL(I)*(1 .-CPCWLd ))) 

5 CPCWL(I)=CPCWL(I)*100, 

DO 12 KK=1/NC 

*** COORDINATES OF BREAK CHORDS BOUNDING SPA.NWISE SECTIONS/ FRUM 
ROOT TO TIP ON THE RIGHT WING *** 

* DIHEO=THE DIHEDRAL ANGLE IN DEGREES FOR THE SECTION * 

READ (5/ 147) ( ( XX L ( I ) / X X T ( I ) / YL ( I ) / I = 1 / 2 ) / Z S / D I H E D) 

WRITE (6/ 147) ((XXL(I)/XXT(I)/YL(I)/I=1/2)/ZS/0IHED) 

YBREAK (KK)=YL(2) 

FM=M1 (KK) 

NSW=M1 (KK) 

IF (KK.EQ.1) DIST=DIST+XXT(1)-XXL(1) 

DO 6 J=1/NSW 
FJ = J 

CPSWL{J)=0.5*(1.-C0S((2.*FJ-1.)*PI/(2.*FM)))*100. 

YC0N(J)=0.5*(1.-C0S(FJ*PI/FM)) 

SJ ( J/KK)=S IN(F J*PI /f M) 

6 CONTINUE 

IF (DIHED .GT. 5. ) I0IH=1 


A 115 
A 116 
A 117 
A 118 
A 119 
A 1 20 
A 121 
A 1 22 
A 1 23 
A 1 24 
A 125 
A 1 26 
A 127 
A 1 28 
A 1 29 
A 1 30 
A 1 31 
A 132 
A 133 
A 134 
A 135 
A 136 
A 1 57 
A 1 38 
A 1 39 
A 140 
A 141 
A 1 42 
A 143 
A 144 
A 145 
A 146 
A 147 
A 148 
A 149 
A 1 50 
A 1 51 
A 1 52 
A 1 53 
A 1 54 
A 1 55 
A 1 56 
A 1 57 
A 1 58 
A 1 59 
A 160 
A 1 61 
A 162 


OCOS(KK)=COS (DIHED *PI/183.) A 163 

DSIN(KK)=SIN(0IHED *PI/180.) A 164 

IF (IWING ,NE. 0 .AND, DCOS(KK) .LE. 0.001) 1V=1 A 165 

IF (KK .EQ. NC) GO TO 7 A 166 

IF (IWING ,NE. 0 .AND, KK .EQ. NiViNC) GO TO 7 A 167 

CPSWL(1)=n. ' A 168 

CPSWL (NSW) =1 00. A 169 

GO TO 8 A 170 

7 CPSWL(1)=0. A 171 
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IF (IWGLT ,EQ. 1 .AND. <K ,EQ. NWING) C PS WL ( M S W ) * 1 00. 

8 If (KK .EQ. NJW(LL)) MJ W1 ( L /L L ) » I P A N£L 
LR=(L-1 )*NC+KK 

CALL PANEL (XXL/'YL^XXT^CPCWL/CPSWL^NSW-^IPANEL/LPANEL^SWP^LR/ZS/L) 

IPANEL*LPANEL+1 

NCS=NCS+NSW“1 

B2*B2+FLOAT(NSW)-1. 

WI0TH(KK)sYL<2)-YL(1 ) 

BREAK (KK)sYL <1 ) 

IF (KK .EQ. NJW(LL)) MJ W2 ( L^LL) *LPANEL 
If (IWING .NE, 0 .AND. KK .EQ, NWING) 60 TO 9 
IF (KK .NE. NO GO TO 11 

9 IF (KK .EQ. NC .AND. IWING .NE. 0) 60 TO 10 
CHORDT(L)sXXT(2)-XXL(2) 

HALFB=YL(2) 

YCN(L) = XXL(2) 

60 TO 11 

10 eH0R0T(L+2)*XXT(2)-XXL(2> 

HALF8H*YL(2) 

YCN(L+2) s XXL(2) 

11 IF (KK .EQ. NJW(LD) LL*LL+1 

12 CONTINUE 

IF (L .EQ. 2) GO TO 15 
LPAN1*LPANEL 

IF (NW(2) .EQ. 0) 60 TO 13 
L=2 

NC W«NW (2) 

B2*0. 

60 TO A 

13 00 1A I = 1,.NFP 
MJW1 (2#I)=0 

1A MJW2(2^I)=0 
NCSsNCS*2 
15 CONTINUE 
NCS*NC S/2 
NCW»NW(1 )*NW(2) 

IF (NVRTX.EQ.O) NVRTX=NCS+1 
DO 220 I = n5 
OF ( I)=0. 

220 TFLP(I)=0. 

IF (IWGLT .NE, 0) IV*0 

*** MACH NUMBER*^ REFERENCE HALF MING AREA*, 

CONTROL INPUT FOR LARGE ALPHA COMPUTATION (*1. IF ALPHA=1, RADIAN 
(IN THIS CASE<> PUT ALP = OF (I )«0 . ) AND sO.<- OTHERWISE)^- AND FLAP 
ANGLES IN DEG. *** 

CREF=REFERENCE CHORD 

read ( 5 , 1 A7> AM^HALFSW^CREf /ALPCON^ (OF(I )^I=1 /NFP ) 

WRITE (64^ 147) AM^HALf SW^CREF<r ALPCON# (OF ( I) ,Is1 ^nFP) 

*** THE FOLLOWING DATA SHOULD BE ALL 0. IF ALPC0N*1. 

ALNM=NUMBER OF ALPHA TO BE EVALUATED. 

ALPIsINITIAL ALPHA IN DEGREES 
ALPINC=INCREMENT AL ALPHA IN DEGREES 

READ ( 5 , 1A7) ALNM^ALPI^ALPINC 
WRITE (6# 147) ALNM, ALPI^ALPINC 


1 72 
173 
1 74 
175 
1 76 
1 77 
1 78 
1 79 
1 80 
1 81 
1 82 
1 83 
1 84 
185 
1 86 
187 
1 88 

189 

190 
1 91 
1 92 
193 
1 94 
1 95 
1 96 
1 97 
1 98 
1 99 
200 

A 201 
A 202 
A 203 
A 2 04 
A 205 
A 206 
A 207 
A 208 


A 211 
A 212 
A 213 
A 214 
A 215 
A 216 
A 217 
218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 
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NALP=ALNM 

IF (NALP.EQ.O) NALP=1 
ALPI=ALPI*PI /1 80. 

ALPINC=ALPINC*PI/180. 

ALP=ALPI 

ALQ*ALP 

*** HEIGHT=HEIGHT OF 3/4 CHORD POINT OF M.A.C. FROM GROUND IF NGRD=1^ 
=0, OTHERWISE. ATT = PITCH ATTITUDE OF WING IN DEGREES-. 

=0. IF NGRD=0. 

READ ( 5 , 147) HEIGHT^ATT 
WRITE (6/ 147) HEIGHT^-ATT 
ATT=S IN (ATT*PI /I 80. ) 

DO 16 Is1 #NFP 
DF<I)=OF(I)*PI/180« 

16 TFLPCI >*-OF< I) 

CAMLE1®0« 

CAMLE2=0. 

CAMLESsO. 

YTW*HALFB 

TINC=0. 

lALPsALPCON 

P0S=0. 

TWIST1 s0» 

ITWST^O 

HALFSHsO, 

***THE FOLLOWING INPUT DATA ARE NOT NEEDED IF ALPCON^I. *** 

***TWIST IN DEG. FOR SECTION 1 AND 2(NEGATIVE FOR WASHOUT)# Y-STATION 
AT WHICH THE TWIST IS CHANGED (=HALFB FOR NO INTERMEDIATE TWIST)# 
ROOT CHORD INCIDENCE IN OEG.#L.E. CAMBER SLOPE AT ROOT CHORD# VTW 
AND TIP *** 

* I F TWIST1 . GT. 99. # THE TWIST DI STR IBUTION DEFINED IN FUNCTION 
SUBPROGRAM TWST IS TO BE USED. IN THIS CASE# THE CAMBER SLOPE WILL 
BE TAKEN FROM FUNCTION SUBPROGRAM ZCDX * 

* 1 F CAMBER ORDINATES ARE TO BE READ IN# THE L.E . CAMBER SLOPES TO BE 
READ IN BELOW MAY BE ARBITRARY NUMBERS * 

IF ( I ALP .EQ. 1 ) GO TO 1 7 

READ (5# 147) TWIST1#TWIST2#YTW#RINC#CAMLE1#CAMLE2#CAMLE3 
WRITE (6# 147) TWIST1 #TWIST2#YTW#RINC#CAMLE1 #C AMLE 2#C AMLE3 

*** IF A TAIL IS PRESENT# READ IN THE INC I DENCE ANGLE IN DEG.# AND 
HALF TAIL AREA. OTHERWISE# THI S CARD SHOULD BE OMITTED *** 

** IF THE TAIL IS TO REPRESENT THE WINGLET# PUT H AL F S H=H A L F SW ** 

** HOWEVER# IF THE WINGLET IS INBOARD OF THE WING TIP# PUT HALFSH* 
WINGLET AREA *** 

POS IS THE WINGLET POSITION INDICATOR WITH RESPECT TO WING TIP, 

FOR DETAIL# SEE INSTRUCTIONS . 

1 7 CONTINUE 

IF (TWIST1 .GT. 99. ) ITWST=1 
IF ( IWING . EQ. 0) GO TO 1 8 
READ (5# 1 47) T I NC # H AL F SH #P OS 
WRITE (6# 147) TINC#HALFSH#POS 

1 8 CONTINUE 


229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 
A 246 
A 247 

248 

249 

250 

251 

252 

253 

254 


255 

256 

257 

258 

259 

260 
A 261 
A 262 
A 263 
A 264 
A 265 
A 266 
A 267 
A 268 
A 269 
A 270 
A 271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 


A 282 
A 283 
A 284 
A 285 



IPOS=POS A 286 

TWIST1=TWIST1*PI/180. A 287 

TWI ST2=TWI ST2*PI /I 80. A 288 

RINC = R INC*PI /I 80. A 239 

TINC=TINC*PI/180. A 290 

WRITE (6^ U9) HALFSW,CREF A 291 

JWING=IWING A 292 

Ci^(50)=IV A 293 

CM(49)=ICAMT A 294 

IF (ICAM ,NE. 1) GO TO 19 A 295 

WRITE(6#156) A296 

WRITE (6^ 158) (XT (I/. I) #1 = 1^1 A 2 97 

WRITE (6^ 159) ( ZC ( 1 I ) # 1 = 1 ,IM ) A 298 

CAMLEl =ZCR (0. ) A 299 

CAMLE2=CAMLE 1 A 300 

CAMLE3=C AMLE2 A 301 

IF (1ST . EQ, 1) GO TO 19 A 302 

WRITE (6^^ 157) A 303 

WRITE (6^ 158) (XT(2#I)#1=1^IM) A 304 

WRITE (6# 159) (2C(2^I )#I=1 ^IM) A 305 

CAMLE2=ZCI (0.) A 306 

CAMLE3=C AMLE2 A 307 

IF (1ST .EQ. 2) GO TO 19 A 308 

WRITE (6^. 160) A 309 

WRITE (6# 158) (XT(3<-I)#I = 1 #1^1) A 310 

WRITE (. 6 ^ 159) ( ZC ( 3-. I ) ^ I ) A 311 

CAMLE3=ZCT (0. ) A 312 

CONTINUE A 313 

WRITE (6^. 154) A 314 

WRITE (6^ 162) A 315 

WRITE (6# 151) (XN(I/.1)/XN(I#2)>-YN(Ii,1),YN(I#2),ZN(I,1)/ZN(i/-2)/l= A 31 6 

miPANEL) A 317 

WRI TE (6^ 155) A 31 8 

WRITE (6^ 161) A 319 

WRITE ( 6 , 151) ( XCP ( I ) # Y CP ( I ) ^ ZCP ( I ) #■ I =ULPANEL) A 320 

J1=LPANEL+1 A 321 

B1=1,-AM*AN A 322 

B2=B1 A 323 

ALZ=ALP*180. /PI A 324 

REWIND 01 A 325 

REWIND 02 A 326 

NPP=NALP A 327 

DO 146 KP=1^NALP A 328 

IF(IALP.EQ.1)G0T024 A329 

TINP=T INC+ALP A 330 

DO 23 I = 1i.NCS A 331 

IF (IWING.NE .0. AND. I .GT. IWING) GO TO 21 A 332 

IF (ITWST.EQ.1) GO TO 22 A 333 

IF (YLE(I).GT. YTW) GO TO 20 A 334 

ALPH( I )=ALP+RI NC +TWI ST1 * YLE (I ) /YTW A 335 

SNA LP ( I )=S IN (ALPH( I ) ) A 336 

CNALP( I)=COS(ALPH(I) ) A 337 

GO TO 23 A 338 

ALPH( I ) = ALP+RI NC +T WI ST 1 +TWIST 2 * ( YLE ( I ) - YT W) / ( H ALF3-Y TW) A 339 

SNALP(I)=SIN(ALPH(D) A 340 

CNALP(I)=COS(ALPH(D) A 341 

GO TO 23 * A 342 



ALPH( I ) = TI N'P 

SNA LP ( I) =S IN (ALPH( I ) ) 

CNALP(I) = COS(ALPH(D) 

GO TO 23 

YC= YLE ( I ) / HALFB 

ALPH(I)=ALP+RINC+TWST(YC) 

SNALP ( I )=S IN (ALPH( I ) ) 

CNA LP ( I ) =COS (ALPH( I ) ) 

CONTINUE 
CONTINUE 
NM=NW ( 1 ) 

NN = NW ( 1 ) 

IZ,= 1 
B = B1 
IPN=1 

IF (NW(2) .EQ. 0) GO TO 25 
II=1+NCS 

CH0RD = CH(1 )+CH(I I) 

GO TO 26 
CH0RD=CH<1) 

CONTINUE 
CSD=DC OS (1 ) 

SSO=DS IN(1 ) 

zB=n, 

Y8 = 0, 

YBB=0. 

IF (KP,NE,1) GO TO 27 

CALL WING (AW^.LPANEL,1 # 0 L P AN 1 ^ L AT ^ NG R D, HE I G H T , A T T*. C S D S S 0 ^ Y a R E AK 
1#DCOS^OSIN,IWING^ZB#YB-fY8B^IW3LT^NC) 

CONTINUE 

XC=(XCP(1)-XLE(IZ))/CH0RD 
IF (ITWST .EQ. 1) GO TO 28 
YX=YTW 

IF (1ST .LE. ?) YX=HALFB 
ZR=ZCR (XC) 

ZI = ZR 

IF ( I ST . NE . 1) Z I =ZC I { XC) 

CAM=ZR-(ZR-ZI)*YCP(1)/YX 
GO TO 29 
YC=YLE (IZ)/HALFB 
CAM=ZCDX(XC^.YC) 

CONTINUE 

IF (lALP ,EQ. 1) ALPT=1, 

IF (lALP .NE. 1) ALPT=SNALP(I Z) 

IF ( I ALP .EQ. 1) CAM = 0. 

AW( J1) =( ALPT-CAM)*CSD 
IF (NALP.GT. 1 ) CA(1 )=AW(J1 ) 

IF (NALP.GT, 1) GO TO 31 
DO 30 1=1 /LPANEL 
GAMMA(I)=-AW(I+1)/AW(1) 

CONTINUE 
IJ = 2 

NJ=LPANEL-1 

LL=1 

CONTINUE 

IF (XP.NE.I) GO TO 33 

CALL WING (AW#LPANEL^IJ^B^LPAN1#LAT/-NGRD^HEIGHT#ATT# CSD^pSSD^YBKtAic. 


A 343 
A 344 
A 345 
A 346 
A 347 
A 348 
A 349 
A 350 
A 351 
A 352 
A 353 
A 354 
A 555 
A 356 
A 357 
A 358 
A 359 
A 360 
A 361 
A 362 
A 363 
A 364 
A 365 
A 3 66 
A 367 
A 368 
A 369 
A 370 
A 371 
A 372 
A 373 
A 374 
A 375 
A 376 
A 377 
A 378 
A 379 
A 380 
A 381 
A 382 
A 383 
A 384 
A 385 
A 386 
A 387 
A 388 
A 389 
A 390 
A 391 
A 392 
A 393 
A 394 
A 395 
A 396 
A 397 
A 398 
A 399 




1,DC0S#0SIN/IWIN6/7B/>YB,YBR,IwGLT/NC) 





A 

400 


COMIfJUE 





A 

401 


IF (NW(?) .EQ. 0) 60 TO 34 





A 

402 


II=1Z+NCS 





A 

403 


CHORD=CH ( I Z) +CH ( I I ) 





A 

404 


GO TO 35 





A 

405 

34 

CHO RD = CH ( I Z ) 





A 

406 

35 

CONTINUE 





A 

407 


yC=(XCP(IJ)-XLE(IZ))/CHORO 





A 

408 


IF (IZ .GT.JWING. AND. OWING. NE.O) GO TO 

51 




A 

409 


LCAM=0 





A 

410 


IF (lALP .EQ, 1) GO TO 40 





A 

4 1 1 


IF (ITWST .EQ. 1) GO TO 41 





A 

412 


IF (YCP(IJ) .6T. YTW) 60 TO 36 





A 

413 


ZR=ZCR <XC) 





A 

414 


YX= YTW 





A 

415 


ZI = ZR 





A 

4 16 


IF ( I ST . NE . 1) Z I=ZC I (XC) 





A 

417 


IF (1ST ,LE« 2 ) YX=HALFB 





A 

418 


CAM=ZR-(ZR-'ZI)*YCP(IJ)/YX 





A 

419 


GO TO 42 





A 

420 

36 

IF (1ST .EQ. 1) GO TO 37 





A 

421 


IF ( I ST . EQ . 2 ) GO TO 38 





A 

422 


ZI=ZCI (XC) 





A 

423 


ZT = ZCT (XC) 





A 

424 


YX= YTW 





A 

4 25 


GO TO 39 





A 

426 

37 

ZI = ZCR (XC) 





A 

427 


ZT = ZI 





A 

428 


YX = 0, 





A 

429 


GO TO 39 





A 

430 

38 

ZI=ZCR (XC) 





A 

431 


ZT = ZCI (XC) 





A 

4 32 


YX = 0. 





A 

4 33 

39 

CONTINUE 





A 

434 


CAM1=ZI-(ZI-ZT)*(YCP(IJ)”YX)/(HALFB-YX) 




A 

435 


IF (LCAF" .EQ. 1) GO TO 48 





A 

436 


- CAM=CAM1 





A 

437 


GO TO 42 





A 

4 38 

40 

CAN=0. 





A 

439 


GO TO 50 





A 

440 

41 

YC=YLE (IZ) /HALFB 





A 

441 


CAM = ZC DX (X C^ YC ) 





A 

442 

42 

CONTINUE 





A 

443 


IF (IJ .GE. MJW1(2#LL) .AND. IJ .LE. 

MJW2 ( 2^ LL) ) 

GO 

TO 

43 

A 

444 


GO TO 44 





A 

445 

43 

IF (LL .EQ. NAD GO TO 50 





A 

446 


CAM=TFLP(LL) +CAM 





A 

447 


GO TO 50 





A 

448 

44 

IF (NW(2) .EQ. 0) GO TO 50 





A 

449 


IF (NC ,GT. 1) GO TO 45 





A 

4 50 


IF (IJ .EQ. MM) CAM=CAM+0.5*T FLP(LL) 





A 

4 51 


60 TO 50 





A 

452 

4 5 

IF (IJ .GE, MJWKULL) .AND. IJ .LE. 

MJW2(1/.LL)) 

GO 

TO 

4 9 

A 

453 


IF ( I J ,6T. LPAN1 ) GO TO 50 





A 

4 54 


IF (IJ .NE. M|Vi) GO TO 50 





A 

4 55 


NCM=IJ+(NCS-IZ)*NW(1)+(IZ-1)*NW(2)+1 

~ 




A 

4 56 



XC=(XCP(NCM)-XLE(IZ))/CH09D 
IF (ITWST ,EQ. 1) GO TO 46 
IF (YCP(IJ) .GT. YTW) GO TO 47 
ZR = ZCR (XC) 

YX= YTW 

IF (1ST .LE. 2) YX=HALFR 
Z I =ZR 

IF (1ST ,NE. 1) ZI=ZCI(XC) 

CA<^1 = ZR-(ZR-ZI)*YCP(IJ)/YX 
60 TO 4 8 

46 CAM1=ZCDX(XC^YC) 

60 TO 48 

47 LCAM=1 

GO TO 36 

48 CONTINUE 

CAM=0. 5*(C AM+CAM1) 

60 TO 50 

49 IF (LL .EQ. NAD GO TO 50 

IF ( I J .£0. MM) CAM=CAM+0.5*TFLP(LL) 

50 CONTINUE 

IF ( I ALP .NE, 1) ALPT = SNALP(I Z) 

IF (lALP «EQ. 1) ALPT=1. 

GO TO 53 

51 ALPT=SNALP (I Z) 

IF (lALP .EQ, 1) ALPT=1, 

C A |V] =Q 

IF (I ALP.EQ. 1 ) GOTO 53 
IF (ICAMT.EQ.O) GO TO 52 
CAM = ZCT(XC ) 

IF ( IJ ,GT, LPAN1 ) GO TO 52 

IF ( I J .NE* MM) GO TO 52 

NCM=IJ+(NCS-IZ)*NW(1)+(IZ-1)*NW(2)+1 

XC=(XCP(NCM)-XLE(IZ))/CHORD 

CAM1=ZCT(XC) 

CAM=0. 5* (C AM+C AMI ) 

52 CONTINUE 

IF (IJ.EQ.MM) C AM=CAM + 0, 5*T FLP (LL ) 

IF (I J .GT. LPAN1 ) CAM=CAM+TFLP( LL) 

53 CONTINUE 

AW ( J1 ) =(ALPT-CAM)*CSD 
I F (NALP.GT. 1 ) CA(IJ)=AW(J1) 

IF (NALP.GT. 1 ) 60 TO 54 

CALL VMSEQN (NJ/ IJ /- A W/ GAMM A^C A ) 

54 CONTINUE 

I F ( I J .GE. LPAN1 .AND. I J .LT. LPANEL ) GO TO 55 
IF ( I J .€0. MJW2(1<rLL)) LL = LL + 1 
GO TO 56 

55 NN=NW(2) 

I F ( I J . EQ. M J W 2 ( 2 ^ L L ) ) LL = LL+1 

56 CONTINUE 

IF (IJ .LT. MM) GO TO 63 
IF (NW(2).E0.O) GO TO 57 
IF (IJ .LE.LPANI ) GO TO 58 

57 ZTG(IZ+1) = ZTG(IZ+1)+ZB+(YTG(IZ-«-1)-Yg)*SSD 
YTG(IZ+1)=YBR+(YTG(IZ+1)-YB)*CSD 

XLL (I Z ) = SS D 
XTT(IZ)=CSD 
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A 4 37 
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A 492 
A 493 
A 494 
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A 4 96 
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00 

ON 


58 CONTINUE 
1Z= IZ + 1 
mm=mv+nn 

IF (IWING .NE. 0 .AND. IZ .EQ. (IWING + D) GO TO 59 
IF (I Z .EQ. (NCS + 1 ) ) GO TO 61 
IF (YLE(IZ) .LT. YBREAK(IPN)) GO TO 63 

59 CONTINUE 

ZB=ZB+(Y8REA<(IPN)-YB)*SSD 
YBB=YBB+(YRREAK(IPN)-YB)*CSD 
YB=YBREAK( IPN) 

IF (IWING .NE. 0 .AND. IZ .EQ. (IWING+1)) GO TO 63 
GO TO 62 

60 IF (IWGLT .EQ. 1) GO TO 62 

61 ZB=0. 

YB=0. 

YBB=0. 

IF (IZ .EQ. (NCS+1)) GO TO 62 
IF (IWGLT .NE. 2) GO TO 62 
ZB=YBREAK(NC-2)*DSIN(1 ) 

Y8B=Y BREAK (NC-2)*DC0S(1) 

YB= YBREAK (NC-2 ) 

62 CONTINUE 
IPN=I PN+1 

IF (IJ .EQ. LPAN1 .OR. IJ .EQ. LPANEL) IPN=1 
CSD=DC OS ( I PN) 

SSD=DS IN(I PN) 

63 IF (IJ .EQ. LPANI) IZ=1 
IF (IJ .EQ. LPANI) LL=1 
IJ=IJ+1 

NJ=NJ-1 

IF (IJ .LE. LPANEL) GO TO 32 
DO 64 I=1#LPANEL 

64 D^1M (I ) =GAMMA (I ) 

IF (KP.EQ.1) CALL INVN (DQ^CP^.AW#LAT#NPP^LPANEL#IP) 

DO 65 I=1i.LPANEL 

65 GAMMA ( I ) =D(«M ( I ) 

REWIND 02 

IF (NALP.EQ.1) GO TO 67 
DO 66 1=1 , LPANEL 
GAMMA ( I ) =0. 

READ (0?) (AW( K) /■K = 1 /LPANEL ) 

DO 66 J=l4>LPANEL 

66 GAMMA(I)=GAMMA(I)-AW(J)*CA(J) 

67 CONTINUE 
CM(1)=ITWST 

CALL THRUST ( L P A NE L , G AMM A S N A L P I A L P ^ L P AN 1 , C AM L E 1 , C A ML E 2 ,, C AML E 3 ^ Y T 
1W, 1ST, IWING/ TINP/NGRD/HEIGHT^ATT^YBREAK,OCOS^DSlN^CSU,JWlNG^IwGLT, 
2NC,0,0«,0»,n.,CNALP) 

DO 68 1=1, NCS 

68 Y(1 ,I ) =CD( I) 

^ DO 69 1 = 1 /LPANEL 

69 CP ( I) =GAMMA( I ) 

CALL GAMAX (AW,CA/LPANl/LPANEL/CP,NC/BREAK,SWP/CHORDT/IWINu,Ni»Iwb/ 
1 HALFBH/YCN,CTP,CTX/IWGLT,IPOS,0) 

DO 70 I=1/LPANEL 

70 GAMXd )=CA (I ) 

DO 71 1=1, NCW 
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YC? ) =CL (1) 

71 IF (IWING.NE.O) Y(3/'I)=CM(1) 

CTI P=CTP(1 )*DCOS(NWING) 

IF (IWGLT .ME. 0) CTIP = CTIP + CTP(2)*OCOS(NWI^4 6 + 1) 

IF (LAT.NE.n) CALL LATERL ( G AM M A , AW # C A / L A T ^ LP A N EL # L=> A N 1 / 0 F , u A L , Y d R 
1EAK,0SIN^0C0S/IWING^IWGLT,NPP#ALP,rGAMP,GAM8,GAMR,CP/GAMX^SREAK,b«P 
?, CHORDT#YCN#SNALP^CNALP) 

IF (L AT. EQ. ( -1 ) ) GO TO 73 
DO 72 I=1,LPANEL 

72 GAMMA(I)=0. 

73 CONTINUE 
p=n . 1 
RL=0,1 
BK = 0. 1 

COS A=C OS (ALP ) 

SINA=S IN (ALP) 

CLPP=3. 

CDPP=0. 

CDVL=0. 

CLT=0. 

CMT=0, 

CDT=0. 

CLL =n. 

CLW=n. 

CMW=0. 

CDW=0. 

CY = 0. 

CN8=n. 

CLB=Q. 

CLP=0. 

CYP=0, 

CMP=0. 

CYR=0. 

CLRR=0, 

CNR=0. 

CYRV=0, 

CYBVSE=0, 

CNBV=0. 

CNBVSE=n. 

CLBV=0. 

CL0 VSE=0. 

CYPV=0. 

CYPVSE=0. 

CNPV=0. 

CNPVSE=0, 

CLP V=0. 

CLPVSE=0. 

CYR V=0, 

CYR SE = 0. 

CLR RV = 0. 

CLR VSE=0. 

CNR v=n, 

CNR VSE=0, 

CSL =0. ’ 

CSXL = 0. 

K C = 1 

NC0L=M1(1) 
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A 603 
A 604 
A 605 
A 606 
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A 626 
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KLL =0 
MM = 0 

NCW1=NCW+1 

NL=1 

IPN=1 

C0D=DC0S (1 ) 

S0D=DSIN(1 ) 

ZB = 0. 

YB = 0. 

YBB=0. 

NCSS=NCS 
C0W = 1 . 

S0W=0. 

00 110 I = nNCS 

FATR=1. 

If(IV.EQ,1.AN0,I.GT.JWlNG) FAIR* 0.5 
IF <NW<2) .EQ. 0) GO TO 74 
11 = I + NCS 

CHORO=CH( I)+CH(11) 

GO TO 75 
CHORO=CH<I) 

CONTINUE 

CML=0. 

CLS(I)=0. 

CL(I)=0. 

CD < I)=0. 

CYS=0. 

CNS =0. 

CLBS=0„ 

CLPS=0. 

CLPVS=0, 

CYPS=0. 

CNPS=0. 

CYRS=0. 

CLRS=0, 

CNRS=0. 

CNB1=0. 

CYR 1 = 0. 

CNR1=0. 

CLY (I)=0. 

DO 93 J=1#NCW 
NN= J4-MM 

IF (NW(2) .EQ. 0) GO TO 76 
IF < J .LE. NW(1 ) ) GO TO 76 
LL=LPAN1-NW(1)*I+NN+NW(2)*(I-1) 

IL=I1 

JLL=J-NW(1 ) 

L = 2 

FN=NW(2) 

GO TO 77 
LL = NN 
IL= I 
JLL=J 
L = 1 

FN=NW ( 1 ) 

CONTINUE 

XC=(XV(LL)-XLE(D) /CHORD 

IF (JWING.NE.O.AND.I.GT. JWING) GO TO 86 
X1=ZCR(XC) 
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X2= XI 
X3 = X1 


IF (1ST . EQ. 1 ) 

GO 

TO 

78 

X2=ZC I (XC) 




X3= X2 




IF ( 1ST . EQ. 2) 

GO 

TO 

78 


X3=ZCT (XC) 

78 CONTINUE 

IF (lALP .EQ. 1) GO TO 88 

IF (LL .GE. MJW1(2/NL) .AND. LL .LE. MJW2(2,ND) GO TO 
IF (ITWST .EQ. 1) GO TO 80 
IF (YLE(I) ,GT. YTW) GO TO 79 
YX= YTW 

IF (1ST .LE. 2) YX=HALFB 
CAM=X1-(X1-X2)*YLE(I)/YX 
GO TO 81 

79 YX = YTW 

IF (1ST ,LE. 2) YX=0. 

CAM=X2-(X2-X3)*(YLE(I)-YX)/(HAIFB-YX) 

GO TO 81 

80 YC = YLE (I ) /HALFB 
CAM=ZCOX(XC^YC) 

81 EP=ALPH(I) 

CS = COS (EP) 

SS=SIN(EP) 

GO TO 89 

82 IF (NL .EQ. NAD EP=ALPH(I) 

IF (NL .NE. NAD E P = AL PH ( I ) - T FL P ( ND 
IF (ITWST .EQ. 1) GO TO 84 
IF (YLE(I) .GT, YTW) GO TO 83 
YX= YTW 

IF (1ST .LE. 2) YX=HALFB 
CAM=X1-(X1-X2)*YLE(I)/YX 
GO TO 85 

83 YX = YTU 

IF (1ST .LE. 2) YX=0. 

CAM=X2-(X2-X3)*(YLE(I)“YX)/(HALFB-YX) 

GO TO 85 

84 YC = YLE ( I ) /HALFB 
CAM=ZCDX(XC#YC) 

85 CONTINUE 
CS=COS (EP) 

SS = SIN (EP) 

GO TO 89 

86 IF (lALP .EQ. 1) GO TO 38 
IF (LL .6T. LPAi^l) GO TO 87 
CS=COS (TINP) 

SS=SIN(TINP) 

CAM=0. 

IF (ICAMT.NF.O) CAM=ZCT(XC) 

GO TO 89 

87 CS = COS (TINP-TFLP (NL) ) 

SS = SIN (TINP~TFLP(NL) ) 

CAM=0. 

IF (ICAMT.NE.O) CAM=ZCT(XC) 

GO TO 89 
CS=1. 


38 
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SS = 1. 

CAM=0. 

89 CONTINUE 
U1 = 0. 

U2 = 0. 

V1=0. 

V2 = 0. 

IF (NGRD .FQ. 0) GO TO 90 

ZCW=-2.*(ZN(LL#1)+ZB+(YCPCLL)-YB)*S0D+HEIGHT)+ZN(LL^1)+ZB+(YCP(LL) 
1-YB )*SOD 

CALL BACKWH (XV(LL)/YV(LL)^ZCW#LPANEL^3,LPAN1,NW#CP/U1/LAT,C0u/:)0a 
1^YBREAK,DC0S<>0SIN^VWIWING^ZB,YB^Y3B,NCSS/IWGLT,NC) 

IF (LAT.NE. (-1 ) ) 60 TO 90 

CALL BACKWH (XV(LL)/.YV(LL)^ZCW/LPANEL,B#LPANl^NW/GAVIMA/U2^LAT^Cai>^ 
1 S0D^YBREAK/DC0S,DSIN,\/2i»IWIN6^ZB^YB^YBB,NCSS^IWGLT,NC) 

90 CONTINUE 

IF (lALP .EQ. 0) GO TO 91 

GAK=CP(LL)*(1.+U1*ALP)+CP(LL)*ALP*U1-GAMX(LL)*(V1*ALP+S0D*ALP)*2. 

G8K=GAMMA<LL) 

CP(LL)=GAK 
GO TO 92 

91 GAK=CP(LL)*(1.+U1)*CS-GAMX(LL)*(V1+S0D*SNALP(I)) 

GBK=GA?^NA(LL)*(1. + U1+U2)*CS-GAMX(LL)*(V2 + V1) 

CP(LL)=GAK 

GAMMA (LL)=GBK 

92 CONTINUE 

GBS=GAK*SN (JLL^L)*CH(IL) /FN 
WBS=GBK*SN (J LL^L)*CH ( ID /FN 
WAS=0. 

FT=SQRT(1.+CAM*CAM*C0D*C0D) 

CL(I)=CL(I)+GBS*(CAM*SS+CS)*COD/FT 

CML=CML-GBS*XV(LL)*COD/FT 

CD(I)=CD(I)+GBS*(-CAM*CS+SS)*COD/FT 

CLS (I ) =CLS (I )+WBS 

CLY (I ) =CLY (I )+GBS*CS 

IF (LAT.NE.1 ) GO TO 93 

FZ = SN( JLL^ L) *CH ( ID / FN 

WP=GAMP(LD*FZ*(1.+U1) 

WB = GAM8(LL )* FZ * ( 1, +U1 ) 

WR=GAMR(LL)*FZ*(1.+U1) 

YCV=SO D*XV (LL) 

ZCV=SOD*(ZCP(LL)+ZB+(YCP(LL)-Y8)*SOD)+COD*(YBB+(YCP(LL)-YB)*COO) 

CYS=CYS-WB*S0D"GBS*(-CAM*CS+SS)*C0D/FT*BK*C0SA 

CNS=CNS+WB*YCV+GBS*(-CAM*CS+SS)*COD/FT*BK*XV(LL)*COSA 

CL8S=CLBS-WB*ZCV 

CYPS=C YPS-WP*SOD 

CLPS=CLPS-WP*ZCV 

CNPS=C NPS+WP*YCV 

CYRS=CYRS-WR*SOD+GBS*SS*XV(LL)/HALFB*COD/FT*RL 
CLf? S~CLRS""WR*Z CV 

^ CNRS=CNRS+WR*YCV-GBS*SS*XV(LL)/HALF3*C0D/FT*RL*XV(LL) 

o CLPVS=CLPVS-(WP-GBS/CS*P*ZCV*SINA/HALFB)*ZCV 

CNB1=CNB1+WB*YCV 
CYR 1=C YR1-WR*SOD 
CNR 1=CNR1 +WR+YCV 

CNB1=CNB1+GBS*(-CAM*CS+SS)*C0D/FT*BK*XU(LL)*C0SA 

93 CONTINUE 
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IF (lALP .EQ. 1) GO TO 07 

IF (JWING .NE. 0 ,AND. I .GT. JWING) GO TO 98 
IF (ITWST .EQ. 1) GO TO 95 
IF (YLE(I) .GT. YTW) GO TO 94 
YX= YTW 

IF (1ST ,LE, 2) YX=HALFB 
CA’^LE=CAMLEl-(CAMLE1-CAMLE2)*YLE(I)/YX 
GO TO 96 
YX= YTW 

IF (1ST .LE. 2) YX=0. 

CAMLE=CAMLE2-(CAMLE2-C AMLE3)* ( YLE(I)-YX)/(HALFB-YX) 

GO TO 96 
YO=YLE (I ) /HALFB 
CAMLE=ZCDX(O.^YC) 

FP = ALPH(I) 

XCS=COS(EP) 

XSS=SI N(EP) 

GO TO 99 

XCS=1 . 

XSS=0. 

CAMLE=0. 

GO TO 99 
XCS=COS(TINP) 

XSS=SI N(TI NP ) 

CAMLE=0. 

IF (ICAMT.NE.O) CAMLE=CAMLE3 
CONTINUE 

FSaCOS(SWEEP(I)) 

SSN=SIN(SWEEP(I) ) 

TAN=SSN/FS 

FTAN=TAN 

F1=SQRT(COD*COD*(1.+CAMLE**2)+SOD*SOD) 

F2=SQRT((1.+FTAN*FTAN)*C0D*C0D+(CAMLE*FTAN*C0D+S0D)**2) 
FI 2=F1 *F2 

F3=1,+C0D*S0D*CAMLE*FTAN 
F4=-C AMLE*C0D*C0D+S0D*C0D*FTAN 
F5=F12/SQRT(F3*F3+F4*F4) 

FT=SQRT(1.+C AMLE**2) 

FL=XSS-XCS*C AMLE 

FD=-XCS-XSS*CAMLE 

CSU(I)=CSU<I)*F5 

CLPPS=CL(I)*PI/CHORD 

CL( I)=CL<I)*PI/CHORO+CTCI)*FL/FT 

CH( I) =CML*PI /( CREF*CHORO) 

CDPPS=CD(I)*PI /CHORD 

CD( I) = CD{t )*PI /CHORD + CTI I) *FD/ FT 

CLS (I ) =CLS(I )*PI /CHORD 

CLY(I)aCLY(I)*PI/CHORD+CT(I)*FL/FT 

IF (LAT.NE.1) GO TO 102 

CONST=PI/CHORD 

CTH-PI /2.*SQRT (1 .-AM* AM*FS* FS) /FS 

CYS~CYS*CONST 

CNS=CNS*CONST 

CLBS=CL8S*C0NST 

CYPS=C YPS*CONST 

CNPS=CNPS*CONST 

CLPS=CLPS*CONST 


A 799 
A 800 
A 801 
A 802 
A 803 
A 804 
A 805 
A 806 
A 807 
A 808 
A 809 
A 810 
A 811 
A 812 
A 813 
A 814 
A 815 
A 816 
A 817 
A 818 
A 819 
A 820 
A 821 
A 822 
A 823 
A 824 
A 825 
A 826 
A 827 
A 828 
A 829 
A 830 
A 831 
A 832 
A 833 
A 834 
A 835 
A 836 
A 837 
A 838 
A 839 
A 840 
A 841 
A 842 
A 843 
A 844 
A 845 
A 84 6 
A 847 
A 848 
A 849 
A 850 
A 851 
A 852 
A 853 
A 854 
A 855 



C YR S=C YRS*CONS T A 856 

CNRS=CNRS*CONST A 357 

CLRS=CLRS*CONST A 858 

CLP VS=CLPVS* CONST A 859 

CNei=CNB1*CONST A 860 

CYR 1 = C YR1 *CONST A 861 

CNR1=CNR1*C0NST A 862 

SIDE=CTH*?.* Y(1,I)*Y(4/.I)*F5 A 863 

SI D EB=CTH*2. *Y ( 1 ,I ) *Y (7, I ) * F5 A 864 

SI 0ER=CTH*2. *Y (1 /I ) * Y ( 10, I ) *F5 A 865 

YE=YBB+( YLE( I )-YB) *COD A 866 

KA=1 + ( 1-1 ) *NW(1 ) A 867 

2YE=300*(ZCP(KA)+ZB+(YLE(I)-YB)*SOD)+C00*(YBB+(YLE(I)-YB)*COD) A 868 

F6= (CAMLE*COD* (CAMLE*TAN*COD + SOO) +TAN*COD*COD) /FI 2 A 869 

FD=FD*COO A 870 

CYB1=C YS-S IDEB*SOD/ FI A 871 

CNB1=CNB1+SIDEB*S0D*XLE(I) A 872 

CL81=CLSS-SIDEB*ZYE/F1 A 873 

CYP1 = CYPS-SIDE*S0D/F1 A 874 

CNP1 = CNPS + SI DE*SOD*XLE (I ) A 875 

CYR1=CYR1-SIDER*S0D/F1 A 876 

CNR1=CNR1+SIDER*S0D*XLE(I) A 877 

CLR'l=CLRS-SIDER*ZYE/F1 A 878 

CYPS=CYPS+SIDE*F6 A 879 

CNPS=CNPS-SI DE*YE*F3/F1 2 A 880 

CNPS=CNPS-SID£*XL£ (I )*F6 A 881 

CLPS=CLPS-SI DE*ZYE*F4/ FI 2 A 882 

CYS=CYS+SIDEB*F6-CT(I)*FD/FT*3K A 883 

CNS=CNS-SIDEB*YE*F3/F12+CT(I)*FD/FT*BK*XLE(I) A 884 

CNS=CNS-SIDEB*XLE(I)*F6 A 885 

CLBS=CLBS-SIDEB*ZYE*F4/F1 2 A 886 

CYRS=CYRS+SIDER*F6+CT( I)*FD/FT*XLE(I)/HALFB*RL A 887 

CNRS=CNRS-SIDER*YE*F3/Fl2-CT(I)*F0/FT*XLE(I)/HALF8*RL*XLE(i) A 888 

CNR S=CNRS-SI DE R* XLE ( I ) *F6 A 839 

CLRS=CLRS-SIDER*ZYE*F4/F12 A 890 

CLPVS=CLPVS-SIDE*ZYE/F1 A 891 

IF (I.GE.NVRTX) GO TO 100 A 892 

GO TO 101 A 893 

100 CYB1=CYS A 894 

CNB1=CNS A 895 

CLB1=CL8S A 896 

CYP1=CYPS A 897 

CNP1=CNPS A 898 

CLPVS-CLPS A 899 

CYR1 = C YRS A 900 

CNR1=CNRS A 901 

CLR1=CLRS A 902 

101 CONTINUE A 903 

102 CONTINUE A 904 

IF (I .LT, NCOL) GO TO 103 A 905 

^ , KLL=NC0L-1 A 906 

KC = KC+1 A 907 

NC0L=NC0L+N1 (KO-1 A 90S 

103 KL=I-KLL A 909 

FM=M1 ( KC ) A 91 0 

AA=CHORD*S J ( KL ,K C) *W I DTH( KC ) / F M - A 911 



AA = AA* FATR 
CLT=CLT + CL (I )*AA 
CMT=CMT+CM(I )*AA 
CDT=CDT+CD(I )*AA 
CLL=CLL+CLS(I)*AA*YLE(I) 

CLPP=CLPP+CLPPS* AA 
COPP=C DPP+CDPPS* AA 
IF CI.GE.NVRTX) GO TO 104 

CDVL=CDVL+CSU(I)*(”CAMLE*XCS+XSS)/FT*COO*AA 
CSL=CSL+CSU(I)*(CAMLE*XSS+XCS)/FT*COD*AA 
CSXL = C SXL-CSUCI)*XLE(I)*AA*COD 

104 CONTINUE 

IF (LAT.NE.I) GO TO 105 
CY= CY + CYS* AA 
CNB=CNB+CNS* AA 
CLB=CL8+CLBS*AA 
CYP=C YP+CYPS*AA 
CNP=CNP+CNPS*AA 
CLP=*CLP + CLPS*AA 
CYR=CYR+CYRS*AA 
CNR=CNR+CNRS*AA 
CLRR=CLPR+CLRS*AA 
CLPV=CLPV^CLPVS*AA 
CYPV=C YPV+CYP1 *AA 
CNPV=CNPV+CNP1 *AA 
CYRV=CYRV+CYR1*AA 
CNRV=CNRV+CNR1 *AA 
CLRRV=CLRRV+CLR1 *A A 
CYBV=C YBV+CYB1 *AA 
CNBV=C NBV+CNBI * AA 
CLBV=CLBV+CLB1 *AA 

105 CONTINUE 

MM= <NCW“NW (2 ) ) *I 

I F < I WING . NE. 0 . AND, I . EQ, IWING) GO TO 1 06 
IF ( I .EQ. NCS) GO TO 1 09 

I F (YLECI+1 ) .LT. YBREAK (IPN) ) GO TO 109 

106 CONTINUE 

ZB=ZB+(YBREA«(IPN)-YB)*SOD 
YBB=YBB+(Y BREAK! IPN)-YB)*COD 
YB=YBREAK (IPN) 

IF (IWING . NE. 0 .AND. I . EQ. IWING) GO TO 107 
GO TO 108 

107 SOW=SOO 
COW=COO 
YPRW=YBB 
YRW=YB 
ZPRW=ZB 

YBK W=YBREAK( IPN) 

IF (IWGLT. EQ. 1 ) GO TO 108 
ZB*0. 

YB=0, 

YBB=0. 

IF ( I WGLT . NE, 2) 60 TO 1 08 
ZB=YBREAK(NC~2)*DSIN(1) 

YBB=YBREAK(NC-2)*DC0S(1) 

YB=YBREAK(NC-2) 


A 912 
A 913 
A 914 
A 91 5 
A 916 
A 917 
A 918 
A 919 
A 920 
A 921 
A 922 
A 923 
A 924 
A 925 
A 926 
A 927 
A 928 
A 929 
A 930 
A 931 
A 932 
A 933 
A 934 
A 935 
A 936 
A 937 
A 938 
A 939 
A 940 
A 941 
A 942 
A 943 
A 944 
A 945 
A 946 
A 947 
A 948 
A 949 
A 950 
A 951 
A 952 
A 953 
A 954 
A 955 
A 956 
A 957 
A 958 
A 959 
A 960 
A 961 
A 962 
A 963 
A 964 
A 965 
A 966 


YPRW=Y8B 

YRW=Y8 

ZPRW=ZB 


A 967 
A 968 
A 969 



108 


109 


1 1 0 


1 1 1 


1 1 2 


1 1 3 


CONTINUE 
IPN=IPN+1 
COO=DCOS (I PN) 

SOD=DS INCI PN) 

CONTINUE 

IF (LL ,EQ, MJW2(2/NL>) NL=NL+1 

IF (IWING .EQ. 0) GO TO 110 

IF (I ,NE, JWING) GO TO 113 

CLW=CLT 

CMW=CMT 

CDW=CDT 

CONTINUE 

IF (LAT.NE.I ) GO TO 116 

CYBVSE=CYBV 

CNBVSE=CNBV 

CLBVSE»CL8V 

CYPVSE=CYPV 

CNPVSE=CNPV 

CLPVSE=CLPV 

CYRSE=C YRV 

CNRVSEsCNRV 

CLRVSE=CLRRV 

NCNT*1 

IF (IWING. NE.O) NCNT=2 
00 1 1 5 KK=1 /NCNT 

FATRsI . 

IF(IV,EQ.1,AN0*KK,EQ,2) FATR=3. 5 
K1 s KK 

KA*1 + (NCS-1 ) *NW <1 ) 

IF (IWING.EQ.O) GO TO 111 
IF (KK.EQ.2) GO TO 1 1 1 
KA=1+( IWING-1 ) *NW( 1 ) 

SS=SOW 

CS=COW 

YB2=YPRW 

YBIsYRW 

2B1-2PRW 

YKP=YBKW 

IF (KK.EQ.I) GO TO 112 
CONTINUE 

IF (KK.EQ.2) K1=KK+1 

SS*SOD 

CS-COO 

YB2SY8B 

YB1 »YB 

2B1S2B 

YKP=YBREAK(IPN) 

ISNsI 
FN = NW(1 ) 

DO 114 Jsl^NCW 
JJ~J 

IF (J , LE. NW ( 1 ) ) 60 TO 113 

ISN=2 

FNsww(2) 


JJ=J“NW(1 ) 

K1 =KK+1 

IF (KK, EQ. 2) K1 =KK+2 
FJ J=J J 


>*SS)”SS*(YB2'KYKP-YB1)*CS) 

YCV=SS*(2BH-(YKP“-YB1)*SS)+CS*(YB2-S'(YKP-YB1)*CS) 


A 970 
A 971 
A 972 
A 973 
A 974 
A 975 
A 976 
A 977 
A 978 
A 979 
A 980 
A 981 
A 982 
A 983 
A 984 
A 985 
A 986 
A 987 
A 988 
A 989 
A 990 
A 991 
A 992 
A 993 
A 994 


A 995 
A 996 
A 997 
A 998 
A 999 
AlOOO 
A1001 
A1002 
A1003 
A1004 
A1305 
A1006 
A1007 
A1008 
A1009 
A1010 
A101 1 
A101 2 
A1013 
A1014 
A1315 
A1016 
A1017 
A101 8 
A1019 
A1020 
A1021 
A1022 


A1D24 

A1025 

A1026 



XQ=YCN(K1)+0.5*CH0RDT(K1)*(1.-C0S((2.*FJJ“1.)*PI/(2.*FN))) 

CK=CHORDT(K1)*2.*Y(KK+1/J)*Y(KK+4#J)*SN(JJ^ISN)/FN 

CK2=CH0RDT(Kl)*2.*Y(KK+1^J)*Y(KK+7/J)*SN(JJ,ISN)/FN 

CK3 = CH0RDT(K1)*2.*Y(KK + WJ)*XL<KK/.J)*SN(JJ^ISN)/FN 

CK = CK* FAIR 

CK2=CK2*FATR 

CK3 = CK3* FAIR 

CK=CK*CS 

CK2=CK2*CS 

CK3=CK3*CS 

CY=CY+CK2*PIS 

CNB=CNB-CK2*XQ*PIS 

CLB=CLB+CK2/CS*ZCV*PIS 

CYP=CYP+CK*PIS 

CNP=CNP-CK*XQ*PIS 

CLP=CLP+CK/CS*ZCV*PIS 

CYRsCY R+CK3*PIS 

CNR*CNR-CK3*XQ*PIS 

CLRR*CLRR+CK3/CS*ZCV*PIS 

CYBVSEsCYBVSE+CK2*PIS 

CNBVSE=CNBVSE-CK2*XQ*PIS 

CLBVSE=CLBVSE+CK2/CS*ZCV*PIS 

CYPVSE*CYPVSE^»-CK*PIS 

CNPVSE=CNPVSE-CK*PIS*XQ 

CLPVS£=CLPVSE+CK/CS*ZCV*PIS 

CYRSE=CYRSE+CK3*PIS 

CWR VSE=CNR VS E-CK3*PIS*XQ 

CLRVSE=CLRVSE+CK3/CS*ZCV*PIS 

CYBVsC YBV-CK2/CS*SS*PIS 

CNBV=CNBV+CK2/CS*SS*PIS<^XQ 

CLBV=CLBV“CK2/CS *YC V*PIS 

CYPVsCYPV-CK/CS*SS*PIS 

CNPVsCNPV't-CK/CS*SS*PIS*XQ 

CYRV=CYRV-CK3/CS*SS*PIS 

CNRV=CNRV+CK3/CS*SS*PIS*XQ 

CLRRV=CLRRV-CK3/CS*YCV*PIS 

114 CLPV=CLPV-CK/CS* YCV*PIS 

115 CONTINUE 

116 CONTINUE 

IF (ABS(CSL) ,GT.0„0001 ) X LE B A Rs C S XL/ C SL 
CLT=CLT*PI /<2. *HALFSW) 

CMT=CMT*PI /(2,*HALFSW) 

CDT=CDT*PI/(2.*HALFSW) 

CLL=-CLL<rPI/ (4,*HALFSW*HALFB) 

CLW=CLW-^Pl/( 2, *HALFSW) 

CMW=CMW*PI /{ 2. *HALFSW) 

CDW=CDW*PI/(2.*HALFSW) 

CLPP=CLPP*PI/<2,*HALFSW) 

CDPP=CDPP*PI/(2.*HALFSW) 

COVL=COVL*PI /(2. *HALFSW) 

CSL=CSL*PI /(2.*HALFSW> 

CSXL=CSXL*PI/(2.*HALFSW*CREF) 

I F (AB S(CL I / . GT, 0. 0001 ) X BP = C Nl T / C L T * C R E F 
IF (lALP . EQ. 1 ) GO TO 1 1 7 
KK = NC S 

IF (IWING ,NE. 0) KK=IWING 
CDVS=CTIP*SN/ILP(KK) *2. 

CLVS=CTIP*COS(ALPH(KK) )*2. 

CMVS = CTIP*CTX*2. /CREF 

1 1 7 CONTINUE 


A1027 

A1028 

A1029 

A1030 


A1031 
A1032 
A1033 
A1034 
A1035 
A1036 
A1037 
A1038 
A1039 
A1040 
A1041 
A1042 
A1043 
A1044 
A1045 
A1046 
A1047 
A1048 
A1049 
A1050 
A1051 
A1052 
A1053 
A1054 
A1055 
A1056 
A1057 
A1058 
A1059 
A1060 
A1061 
A1062 
A1063 
A1064 
A1065 
A1 066 
A1067 
A1068 
A1069 
A1070 
A1071 
A1072 
A1073 
A1074 
A1075 
A1076 
A1077 
A1078 
A1079 
A1080 
A1081 
A1082 
A1083 



CDC L? = 0. 

IF (LAT.NE.1 ) GO TO 118 
CONST=PI/(2.*HALFSW) 

CONTB=CONST/(2.*HALFB) 

CY=CY*CONST/BK 

CNB=CN8*C0NTB/BK 

CLB=CL8*C0NTB/BK 

CYP=C YP*CONST/P 

CNP=CNP*CONTB/P 

CLP=CLP*CONTB/P 

CYR=CYR*CONST/RL 

CNR=CNR*CONTB/RL 

GLRR=CLRR*CONTB/RL 

CLPV=CLPV*CONTByP 

CYBV=C YBV*CONST/BK 

CYBVSEsC YB VS E* CONST /BK 

CNB V=CNBV* CONTB/BK 

CNBVSE=CN8VSE*C0NTB/8K 

CLB V=CLSV*CONte/BK 

CLB VS E =CLB VS E* CONTB/BK 

CYPV=C YPV*CONST/P 

CYPVSE=CYPVSE*CONST/P 

cnpv=cnpv*contb/p 

CNPVSE=CNPVSE*CONTB/P 

CLPVSE=CLPVSE*CONTB/P 

CYRV=CYRV*CONST/RL 

CYRSE=CYRSE*CONST/RL 

CLRRV=CLRRV*CONTB/RL 

CLRVSE=CLRVSE*CONTB/RL 

CNRV=CNRV*CONTB/RL 

CNR VSE=CNR VSE*CONTB/RL 

118 CONTINUE 

IF (ABS(CLT) ,LE, 0,001) GO TO 119 
CDCL2=C0T/ (CLT*CLT) 

119 CONTINUE 

IF (LAT.EQ,(“1)) GO TO 121 

CALL BENDIN <NC^.CLY,BMR^IWING<.BREAK<.CBMR^CBTR^NWING«-HALFSH*-HALFaHiF 
- 1 DCOS^DSIN# IWGLT^ FTL) 

IF (IWGLT,EQ,2) C 3 !«R = C BMR 4- F TL * ( S OD * Z PR W + C 00 * Y P R W ) / H A L FB -FC B f R 

C8ML=CBNR 

CBTL=C BTR 

DO 1 20 I = U N C S 

120 BML (I ) =BMR (I ) 

GO TO 124 

121 IF (LAT.EQ.1 ) 60 TO 124 
DO 122 I-UNCS 

122 YCON( I ) = CLY ( I ) +CLS ( I ) 

CALL BENDIN (NC/YC0N^BMR,IWING/BREAK,CBMR,CBTR^NWIN3^HALFSH,HALFbH 
WDCOS^DSIN,IWGLT,FTL> 

IF (IWGLT,EQ.2) C BMR= C BM R + F TL * ( S OD * Z PR W+ C 0 D *■ Y P R W) / H A L FB + C B T R 
DO 123 I = 1^-NCS 

123 YCONd )=CLY(I)-CLS(I) 

CALL BENDIN <NC^YC0N^BML#IWINGii>BREAK^CBML^CBTL^NWlN3#HALFSH^HALFbH 
1 ^DC0S4»DSIN<.IWGLT<fFTL) 

IF (IWGLT.EQ.2) CBML = C3'^L + FTL* (S0D*ZPRW + C0D*YPRW) /HALFB + CBTL 

124 CONTINUE 
ALP=AL P*180. /PI 


A1 084 
A1085 
A1086 
A1087 
A1088 
A1089 
A1090 
A1091 
A1092 
A1 093 
A1094 
A1095 
A1096 
A1097 
A1098 
A1099 
All 00 
A1101 
All 02 
A1103 
All 04 
A1105 
All 06 
A1 1 07 
All 08 
A1 1 09 
A1 1 1 0 
Aim 
A1 1 1 2 
A1 11 3 
A1 1 1 4 
A1 1 1 5 
A1 1 1 6 
A1 1 1 7 
A1 1 1 8 
A1 1 1 9 
All 20 
All 21 
A11 22 
All 23 
All 24 
A1 1 25 
All 26 
All 27 
All 28 
A11 29 
All 30 
A1 1 31 
A1132 
A1 1 33 
A1 1 34 
A1135 
All 36 
All 37 
All 38 
A1 1 39 
A1 1 40 



WRITE (6, 165) 

IF (lALP ,EQ. 1) WRITE (6^ 167) 

IF( IALP.EQ.1 ) GO TO 125 
WRITE(6^166) ALP 
IF(NAL.NE.O) AF=Df (NAL)*180./PI 
IF(NAL.EQ.O) AF=0. 

IF (LAT .EQ. (-1)) WRITE (6^ 164) AF 
125 CONTINUE 

WRITE (6# 165) 

IF (LAT.NE.I-D) WRITE (6# 168) 

IF (LAT. EQ. (-1 ) ) WRITE (6, 169) 

K1=0 

JJ1=0 

HABsHALFB 

IF (IW6LT .EQ. 1) IWINGsNCS 


DO 

132 I®1 

^NCS 




If 

Cl .GT. 

IWING .AMD. 

IWING ,NE. 

0) 

HAB«HALf 6H 

IF 

Cl .GT. 

IWING .AND. 

IWGLT .EQ. 

2) 

HABssHALFB 

If 

(NW(2> 

.EQ. 0) GO TO 

126 




I1*I-»-NCS 

CHORDsCH(I)*CH(in 
SO TO 127 

126 CHORD»CH(I ) 

127 CONTINUE 

00 131 J*1^NCW 

JJsJJl+J 

s 4» J 

IF (NWC2) «EQ. 0) GO TO 128 
IF (J .LE. NW(1 ) ) GO TO 1 28 
LL = LPAN1“NW< 1)*I+JJ+NW(2)*( 1-1 ) 

GO TO 129 

128 LLsJJ 

129 CONTINUE 
XI=(XV(LL)-XLE(I))/CHORD 
ETA=YV (LL) /HAB 

IF (LAT.NE. (-1 ) ) GO TO 1 30 
CPR=(CP(LL)+GAMMA(LL) )*2. 

CPL=(CP(LL)-GAMMA(LL))*2. 

WRI TE (6# 170) KK,X I ^ E T A # C PL ^ C PR 
GO TO 131 

130 CPK»2. *CP(LL ) 

WRITE (6# 170) KK#XI/ETA^CPK 

131 CONTINUE 

JJ1 =(NCW-NW(2) )* I 
K1*K1 +NC W 

132 CONTINUE 
WRITE (6, 171) 

HAB3HALFB 

DO 135 I«1 rNCS 

IF (IWGLT . EQ. 0) 60 TO 133 

IF ( I . EQ. (JWING4-D) WRITE (6, 173) 

GO TO 134 

133 CONTI NUE 

, , IF (J WING . NE, 0 .AND. I . EQ. (JWING + D) WRITE <6# 1 72) 

1 34 CONTINUE 

IF ( IWING . NE. 0 .AND, I . GT. IWIN6) HABsHALFBH 
IF (I .GT . IWING .AND, IWGLT .EQ. 2) HAB»HALFB 

YE*YLE (I)/HAB 


A1141 
A1142 
All 43 
All 44 


All 46 
A1147 
A1T^« 
All 49 
All 50 
All 51 
All 52 
All 53 
All 54 
All 55 
All $4 
All 57 
All 
All 
A1160 
A1161 
A1162 
A1163 
All 64 
A1165 
All 66 
All 67 
A1168 
All 69 
All 70 
All 71 
A1172 
All 73 
A1 1 74 
All 75 
A1176 
All 77 
All 78 
All 79 
A1180 
A1181 
All 82 
A1183 
A1184 
A1185 
A1186 
A1187 
A1188 
A1189 
A1190 
All 91 
All 92 
A1193 
All 94 
All 95 
All 96 
A1197 



135 


136 


137 


138 


139 


225 


140 


TEM=CLS(I) 

IF (LAT.NE. ( -1 ) ) TEM=0. 

CLRT=CL (I ) +TEM 
CLLT=CL(I)-TEM 

WRITE (6# 174) YE#CLRT/CLLT/CM(I)^CT(I)#CO(I) 
WRITE (6^ 175) 

WRITE (6/ 176) CLT 

WRITE (6^ 177) CDT 

WRITE <6# 178) C0CL2 

WRITE (6^ 179) CMT 

IF (IWIN6.NE.0) GO TO 136 

IF (ABS(CLT),LE. 0.001) GO TO 137 

IF INGRD.NE.O) GO TO 137 

IF (IDIH.NE.O) GO TO 137 

CALL DRAG (C LT^^YBRE AK#NC ^TFLP^NAL) 


GO TO 

137 



WRITE 

(6^ 

186) 

CLW 

WRITE 

(6 ^ 

187) 

CDW 

WRITE 

C6, 

188) 

CMW 

CLTLW= 

CLT- 

CLW 


CLTLH= 

CLTLW*HALFSW/HALFSH 

CMTAILaCHT 

-CMW 


WRITE 

(6# 

189) 

CLTLW^CLTLH 

WRITE 

(6^ 

190) 


WRITE 

(6, 

191 ) 

CHTAIL 

CONTINUE 



WRITE 

(6, 

192) 



IF (lALP .EQ.-O) GO TO 138 
WRITE <6# 152) 

CTIP = CTIP*2 


WRITE 

(6, 

182) 


WRITE 

(6, 

180) 

CLT^CSL^CTIP 

WRITE 

(6^ 

181 ) 

XBP/XLEBAR,CTX 

WRITE 

(6^ 

152) 


GO TO 

139 


CONTINUE 



WRITE 

(6^ 

152) 


WRITE 

(6^ 

182) 


WRITE 

( 6 ^ 

183) 

CLPP^CSL^CLVS 

WRITE 

(6^ 

184) 

COPP^CDVL#CDVS 

WRITE 

(6# 

185) 

CMT^CSXL<-CMVS 

WRITE 

( 6 # 

152) 


CONTINUE 



HWs2. 

*HALFSW 


HSHs2 

. *HALFSH 


IF (LAT . 

EQ. 

0) GO TO 142 


IF(NAL.EQ.O) GO TO 225 

OF ( NAD = 0F (NAD *180. /PI 

If (LAT .EQ. <“D) WRITE (.6, 203) CLL^OF (NAD # AM 
CONTINUE 

IF (LAT.NE.1 ) 60 TO 142 
WRITE i6, 152) 

WRITE (6^ 193) 

WRITE (6^ 152) 

KAs 1 

CONTINUE 

IF (KA.GT.3) GO TO 142 
WRITE (6# 195) ALZ 
WRITE (6, 196) AM 


All 98 
All 99 
A1200 
A1201 
A1202 
A1203 
A1204 
A1205 
A1206 
A1207 
A1208 
A1209 
A1210 
A1211 
A1212 
A1213 
A1214 
A1215 
A1216 
A1217 
A1218 
A1219 
A1220 
A1221 
A1222 
A1223 
A1224 
A1225 
A1226 
A1227 
A1228 
A1229 
A1230 
A1231 
A1232 
A1233 
A1234 
A1235 
A1236 
A1237 
A1238 
A1239 
A1240 
A1241 
A1242 
A1243 

A1244 

A1245 


A1246 

A1247 

A1248 

A1249 

A1250 

A1251 

A1252 

A1253 

A1254 





IF (KA.EQ.2) WRITE (6, 201) 

IF (KA.EQ.3) write ( 6 , 202) 

WRITE (6/ 197) CY/.CLB^CNB 
WRITE (6# 198) CYP/»CLP#CNP 
WRITE ( 6 , 199) CYRj.CLRRi.CNR 
WRITE <6^ 200) 

CYB8 = C Y 

CLBB=CLB*COSA+CNB*SINA 

CNBB=CNB*COSA-CLB*SINA 

CYPP=CYP*COSA+CYR*SINA 

CLPP=CLP*COSA*COSA+(CLRR+CNP)*COSA*SINA+CNR*SINA*SINA 
CNPP=CNP*COSA*COSA+(CNR“CLP)*COSA*SINA-CLRR*SINA*SINA 
CYRR=C YR*COSA-CYP*SINA 

CLRL=CLRR*COSA*COSA+ (CNR-CLP)*SlNA*COSA-CNP*SINA*SIN A 

CNRR=CNR*COSA*COSA-<CLRR^CNP)*SINA*COSA+CLP*SINA*SINA 

WRITE (6# 197) CYB8j.CLBBj.CNBB 

WRITE C6#' 198) CYPPj.CLPPj.CNPP 

WRITE ^<6# _199) tYRRj.QLRL?CNRR 

If <KA«E®,1) WRITE (6# 152) 

if iKA.EQ.1) WRITE ( 6 ^ 194 } 

If {XA,EQ«1) WRITE (6j. 152) 

If {KA.GTj.2) go to 142 
k;a=k A-t- 1 

IF (KA.EQ,2) GO TO 141 

CY=CYBVSE 

CNB=CNBVSE 

CLB=CLBVSE 

CYP=CYPVSE 

CLP=CLPVSE 

CNP=CNPVSE 

CYR=CYRSE 

CLRR=CLRVSE 

CNR=CNRVSE 

60 TO 140 

141 CY=CYBV 
CNB=CNBV 
CLB=CLBV 
CYP=C YPV 
CLP=CLPV 
CNP=CNPV 
CYR=CY RV 
CLRR=CLRRV 
CNR =CNRV 
GO TO 140 

142 CONTINUE 

WRITE (6# 204) HWJ.HALFB 
WRITE (6^ 205) 

WRITE (6j. 206) 

HAB=HALFB 

DO 145 I=1#NCS 

IF < I WGLT . EQ. 0) GO TO 143 

^ IF (I .EQ. (JWING + D) WRITE 208) HW/HALFB 

^ GO TO 144 

143 CONTINUE 

IF (JWING .NE. 0 .AND, I .ES. (JWING+f)) WRITE (6# 20?) HSH,HALFb 
1 H 

144 CONTINUE 


A1255 

A1256 

A1257 

A1258 

A1259 

A1260 

A1261 

A1262 

A1263 

A1264 

A1265 

A1266 

A1267 

A1268 

A1269 

A1270 

A1271 

A1272 

A1273 

A1274 

A1275 

A1276 

A1277 

A1278 

A1279 

A1280 

A1281 

A1282 

A1283 

A1284 

A1285 

A1286 

A1287 

A1 288 

A1 289 

A1290 

A1291 

A1 292 

A1293 

A1294 

A1295 

A1296 

A1297 

A1298 

A1299 

A13Q0 

A1301 

A1302 

A1303 

A1304 

A1305 

A1306 

A1307 

A1308 

A1309 

A131 0 

A131 1 



100 


IF 

(J WING 

.NE. 0 

.AND. 

I 

.EQ. 

(JWING^D) write (6^ 209) 

IF 

( IWING 

.NE. 0 

.AND. 

I 

.GT. 

IWING) 

HAB*HALF«H 

IF 

(I .GT. 

IWING 

.AND. 

I WGLT 

.EQ. 2) 

HAB=HALFB 


YEsYLE (I )7HAB 

WRITE ( 6 , 174) YE^BMR(I),8ML(I> 

WRITE (6/ 209) 

WRITE (6^ 210) CBMR^CBML 
WRITE ( 6 , 209) 

IF (IWING .NE. 0 .AND. IWGLT ,NE. 1) WRITE (6/ 211) CBTR^CBTL 
IF (IWGLT .EQ, 1) WRITE ( 6 , 212) CBTR^CBTL 
ALP=ALQ+ALPI NC 
ALQsALP 

ALZ*ALQ*1 80, /PI 

IF ( IWGLT. EQ. 1.) IWING = JWING 

CONTINUE 

NC0N»NC0N>1 

IF (NCON .LE. ICASE) GO TO 1 
STOP 

FORMAT (8F10.6) 

FORMAT (8(6X#14)) 

FORMAT ( tOXi^SHHALF S W» #E 1 2. 1 OX # 5 HC RE F*# El 2. 5 ) 

FORMAT (13HCASE NUMBER =#I2) 

FORMAT 

FORMAT (1 H0» 10HINPUT DATA) 

FORMAT (1H0#36HV0RTEX ELEMENT ENDPOINT COOR D I N ATE S =) 

FORMAT <1 H0^26HC0NTR0L POINT C 00 RD I N ATES= ) 

FORMAT (/45H*** CAMBER ORDINATES FOR THE ROOT SECTION ***) 

FORMAT (/53H*** CAMBER ORDINATES FOR THE INTERMEDIATE SECTION *** ) 
FORMAT (/7X^3HX/C^1 1 FI 0.5) 

FORMAT </7X,3HZ/C#1 1 F10.5) 

FORMAT (/44H*** CAMBER ORDINATES FOR THE TIP SECTION ***) 

FORMAT (/4X^3HXCP^7X#3HYCP^7X,3HZCP^7X#3HXCP#7X^3HYCP/7X^3HZCP) 
FORMAT (/4X,2HX1>8Xip2HX2»8X/2HY1#8Xi.2HY2#8X,2HZ1/.6X^2HZ2) 

FORMAT (13A6) 

FORMAT (/20X#19HAND AILERON ANGLE s ^ F 8. 3# 2 X ^ 4 H DEG . ) 

FORMAT (/20X/42HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

FORMAT (/20X/32HPRESSURE DISTRIBUTION AT ALPHA =# F 8 . 3 # 2 X #4 HD EG . ) 
FORMAT (/20X^43HPRESSURE DISTRIBUTION AT ALPHA = 1 .0 RADIAN) 

FORMAT (/3X#6HV0RTEX^14Xip2HXV«-17X#2HYV#19X#2HCP) 

FORMAT (/3X^6HV0RTEX^14X#2HXV#17X#.2HYV^17X#8HCP(LEFT)<.12X^ 9HCP(RI 
1GHT)) 

FORMAT (6X#I3#4(10X#F10.5)) 

FORMAT </9X^r3HY/S#11X^9HCL(RIGHT)/6X/8HCL(LEFT)#10X^2HCM#12X,2HCT# 
1 13X#3HCDI ) 

FORMA^-</4X^42HTHE FOLLOWING ARE THE TAIL CHARACTERISTICS) 

FORMAT (/4X#45HTHE FOLLOWING ARE THE WINGLET CHARA CTER I STI CS) 
FORMAT (8<5X/F10.5) ) 

FORMAT (/2X#57H*** THE FOLLOWING ARE ATTACHED POTENTIAL FLOW RESUL 
1 TS ***) 

FORMAT (/24HT0TAL LIFT COEFFICIENT =,F10.5) 

FORMAT (/2X/32HTOTAL INDUCED DRAG COEFFICIENT »,F1 0.5 ) 

FORMAT (/2X/28HTHE INDUCED DRAG PARAMETER *^F1 0.5) 

FORMAT </2X»35HTOTAL PITCHING MOMENT COEFFICIENT »^F1 0. 5) 

FORMAT (/2X,4HKP F 1 0. 5#3X ,6H KVLE = oF 1 0. 5 # 3X , 6HK V S E »#F10.5) 
FORMAT (/2X,5HXBP « # F 1 0. 5 # 3 X, 6 HX BLE =# F 1 0. 5 # 3 X ^6H X B SE *#F10.5) 
FORMAT {/66HTHE FOLLOWING PARAMETERS ARE USED IN T HE METHOD OF SUC 



183 

184 

185 

186 
18? 
188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

20 5 
206 

207 

208 

209 

21 0 


21 1 
21 2 


1TI0N' ANALOGY) 

FORMAT (/2X/5HCLP = -» F 1 0 . 5 ^ 3 X , 7 HC L V L E = # F 1 0 , 5 # 3 X , 7 HC L VS E =,F1U.5) 
^/|X,5HCDP FI 0. 5 ^3X, 7 HCDVLE = # F 1 0. 5 # 3 X ^ 7 H CD VS E =^f10,>) 
=/>F10.5>.3X^7HCMVLE = , F 1 0 . 5 ^ 3 X , 7H C '1 VS E =^f1U.5) 
FORMAT (/5X^?7HTHE WING LIFT COEFFICIENT =^F10.5) 

FORMAT C/5X^35HTHE WING INDUCED DRAG COEFFICIENT =#F10-5) 

FORMAT (/5X#38HTHE WING PITCHING MOMENT COEFFICIENT =/F10.5) 

' 7 ^” COEFFICIENT F 1 0 . 5 / 2 H ( 8 A S E D ON wiNG 

1 AR EA ) 2X <-1 H= , F 1 0. 5 ^ 20H ( BASE D ON TAIL AREA)) 

FORMAT (/5X,65HTHE TAIL PITCHING MOMENT COEFFICIENT BASED ON REFtk 
1ENCE WING AREA) 

1 format^ C/1 0X#49HAND MEAN WING CHORD# AND REFERRED TO THE Y-AXIS =# 

1 CAl”lOADING^M INDUCED DRAG COMPUTATION I S FOR SYMMETRI 

FORMAT (/2X#48H*STABILITY DERIVATIVES BY POTENTIAL FLOW THEORY*) 
^FORMAT (/2X#51H*STABILITY DERIVATIVES WITH EDGE VORTEX SEPARATION* 

1#2X#7H0E6rIeS) ^^***^^^ DERIVATIVES EVALUATED AT ALPHA =#Fo.3 

FORMAT (5X#16HAND AT MACH N 0. = # F 5 , 2 # 37H #B AS E D ON BODY AXESCIN PER 
1 RADIAN)***) 

(/5X#5HCYB =#F12.7#2X#5HCLB =#F12.7#2X#5HCN3 =#F12.7) 
C/5X,5HCYP =#F12,7#2X#5HCLP = # F 1 2 . 7 # 2X , 5 HC NP =#F12.7) 
=^F12.7#2X#5HCLR = # F 1 2. 7# 2 X # 5 HC NR =#F12.7) 

FORMAT (//2X#51 H***STABILITY DERIVATIVES BASED ON STABILITY AXES** 
1 * ) 

FORMAT (/5X#48H**INCLUDING THE EFFECT OF LE AND SE VORTEX LIFT*) 
format (/5X#40H* including THE EFFECT OF LE VORTEX LIFT*) 

FORMAT </2X,32HTHE ROLLING MOMENT COEFFICIENT =# F 7 . 4 # 2 X # 28 HOU E TO 
^ OF# F8. 3#2X#4HDEG. #2X#6HAT M =#F8.3) 

FORMAT (//63HTHE FOLLOWING BENDING MOMENT COEFFICIEMT IS BASED ON 

^ =*F1 0.5#2X#9HAND B/2 =#F13.5) 

FORMAT (10X#34H(F0R ATTACHED POTENTIAL FLOW ONLY)) 

FORMAT ( /9X# 3HY/ S# 11X#9H8M( RIGHT )#6X#8HBM( LEFT)) 

format (/4X#66HTHE FOLLOWING ARE THE TAIL CHARACTERISTICS BASED ON 

S =# FI 0.5#2X#9HAND B/2 =#F10.5) 

^ ^ WINGLET CHARACTERISTICS BASED 
^ S =#F10.5#2X#9HAND B/2 =#F1Q.5) 

format viHO/ 

FORMAT (68HTHE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAN 
1AND WING area# /15X#18HAT THE WING ROOT = # F 1 0 . 6 #2 X #3 H ( R I GH T ) # # 2 X# 1 
cH-# riU»o^/:X^6HCLEFT) ) 

FORMAT {68HTHE SENDING MOMENT COEFFICIENT BASED ON TAIL HALF SPAN 

''OOT =#FlO:6#2x;8i(RIGiJT)L2xilH 

^ ~ ^ r 1 U • 6 # if X ^ 6 H ( L E F T ) ) 

MOMENT COEFFICIENT BASED ON WING HALF SP 

=.ri0.6,2X.8H(«IGHI).. 

END 


A1369 

A1 370 

A1371 

A1372 

A1373 

A1374 

A1375 

A1376 

A1377 

A1378 

A1379 

A1380 

A1381 

At 182 

A1383 

A1384 

A1385 

A1386 

A 138 7 

A1388 

A1389 

A1 390 

A1391 

A1392 

A1393 

AI394 

A1395 

A1396 

A1397 

A1398 

A1399 

A1400 

A1 401 

A1402 

A1403 

A1404 

A1405 

A1406 

A1407 

A1408 

A1409 

A141 0 

A141 1 

A1412 

A1413 

A1414 

A141 5 

A141 6 

A141 7 

A141 8- 
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FUNCTION ZCDX (X,Y) B 1 

DEFINE THE CAMBER SLOPE AT ANY X,Y IN CLOSED FORM, WHERE X IS B 2 

THE NON-DIMENSIONAL CHORDWISE LOCATION W.R.T. L.E. AND Y IS NUN- B 3 

DIMENS lONALI ZED W.R.T. HALF SPAN. B 4 

B 5 

A=0.1 1 *(1 .-2. *Y) +0.33 B 6 

B=-0.0825*(1 .-2.*Y)-TWST(Y)-0. 101 3 7 

C=0.0275*(1.-2.*Y)+0.0075-A-B B 8 

ZCDX=3.*A*X*X+2.*3*X+C B 9 

RETURN B 10 

END B 11- 


FUNCTION TWST (Y) 

C DEFINE THE TWIST DISTRIBUTION IN RADIAN AS A FUNCTION OF NONOIMEN- 
C SIONAL Y, 

C 

TWST=-n,05041+3.61 004 * Y-36. 98 0 46 * Y* Y + 37. 79204 * Y ** 3 + 6 . 54 321 * Y * * 4 
1-1 5.46932+ Y+* 5-0. 0008 5* Y** 6+0. 00441 *Y**7 
TWST=T WST+3. 1 41 59265/1 80. 

RETURN 

END 


C 

C 

c 

c 

c 

c 

c 

c 

c 


1 

2 

3 

4 

5 

6 

7 

8 

9- 


FUNCTION ZCAM (I,X) 

COMMON /CAMB/ ICAM,IM,XT(3,12>,ZC(3,12),AAM<3,11),33M(3,11),CCM(3, 
111) ,DDM(3,11 ) 

K=1 

1 IF (X ,GE. XT(I,K) .AND. X .LT. XT(I,K+1>) GO TO 2 
K=K+1 

IF (K .GE. IM) GO TO 3 
GO TO 1 

2 SM=X-XT(I,K) 

ZC AM=3.*AAMC I, K) +SM**2+2.*BBM(I,K)*SM+CCM(I,K) 

GO TO 5 

3 IF (X .LT. XT(I,D) GO TO 4 

K=IM-1 

GO TO 2 

4 K = 1 

GO TO 2 

5 RETURN 
END 


D 1 
D 2 
D 3 
D 4 
D 5 
D 6 
D 7 
D 8 
D 9 
D 10 
D 1 1 
D 12 
0 13 

D 14 
0 1 5 

D 16 
D 1 7 
D 18- 
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FUNCTION ZCR (X) 

COMMON /CAMB/ I C AM # I v , XT ( 3# 1 2 ) 
1 11 ) ^00M(3/.11 ) 

IF (ICAM ,E(5. 1) GO TO 1 


^ZC(3/'12),AAM(3x11)^B3M(3*’11J^CCM(i^ 


*** CAMBER FUNCTION AT THE ROOT IS DEFINED HERE *** 


ZCR=0. 

GO TO 2 

1 ZCR=ZC AM(1 ,X) 

2 RETURN 
END 


E 1 
E 2 
E 3 
E 4 
E 5 
E 6 
E 7 
E 8 
E 9 
E 10 
E 1 1 
E 1 2- 


FUNCTION ZCI (X) 

ICAM^IM^XT{3,12)^2C(3,12)^AAM<3^11)^B3M(3,11)^CCM<3^ 

IF (ICAM .EQ. 1 ) GO TO 1 
C 

C *** CAMBER FUNCTION AT THE INTERMEDIATE STATION IS DEFINED HERE *** 

ZCI =ZCR(X) 

GO TO 2 

1 ZCI =ZC AM(2/X) 

2 RETURN 
END 


F 3 
F 4 
F 5 
F 6 
F 7 
F 8 
F 9 
F 1 0 
F 11 
F 12- 


FUNCTION ZCT (X) 

llllI^DDMciJll) ^^'^'^'I'^'^^^^'''2>'^C(3,12),AAM(3,11)^B3M(3,11)^CCM(3^ 

IF (ICAm'.EQ. 1) GO TO 1 
C 

C **★ CAMBER FUNCTION AT THE TIP IS DEFINED HERE *** 

ZCT=ZCR(X) 

GO TO 2 

1 ZCT=ZCAM(3^X) 

2 RETURN 
END 


G 1 
G 2 
G 3 
G 4 
G 5 
G 6 
G 7 
G 8 
G 9 
6 10 
G 11 
G 12- 


M 

O 
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SUBROUTINE INVN ( D Q # C A L AT , N A L N ^ I P ) 
DIMENSION DQ(IP,IP), CP(1), AW(1) 


SETOIM IS TO SET UP ARRAY TABLE FOR MATRIX INVERSIOM 
BE NEEDED IF OTHER INVERSION ROUTINES ARE USED. 


AND MAY NOT 


IA= IP 

CALL SETDIM (DQ^IA^IA) 
IF (NALP.EQ.1) 60 TO 3 
REWIND 01 
DO rr=i#N 

READ (01) (AW(K)#Ka1,N) 
READ (01) (CP(K)^KsI^N) 
DO 1 4 = 1/.N 
1 DQ( I^.J )=AW(J ) 


OQ IS THE MATRIX TO BE INVERTED, AW IS A WORKING ARRAY. 
INVERTED MATRIX IS RETURNED IN DQ. 


the 


CALL ME1MINV (OQ<f AW) 

DO 2 I=1^N 

2 WRITE (02) (DQ(I,K)^K=UN) 

3 IF (LAT.NE.1) GO TO 6 
REWIND 01 

DO A I=1^N 

READ (01) (AW(K) ,K=1 ,N) 
READ ( 01 ) (CP( K) #K=1 ^N) 

DO A J = 1#N 
A DQ( I^J )=CP(J ) 

CALL HEMINV (DQ^N^AW) 

DO 5 1 = 1 /.N 

5 WRITE (02) (DQ(I^K)^K=1,N) 

6 RETURN 
END 


H 1 
H 2 
H 3 
H A 
H 5 
H 6 
H 7 
H 8 
H 9 
H 10 
H 1 1 
H 1 2 
H 13 
H 14 
H 1 5 
H 1 6 
H 1 7 
H 1 8 
H 19 
H 20 
H 21 
H 22 
H 23 
H 2A 
H 25 
H 26 
H 27 
H 28 
H 29 
H 30 
H 31 
H 32 
H 33 
H 3A- 


o 

-p- 
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1) LG=2 


SUBROUTINETHRUST (LPANEL#GAV!viA#SNALP»IALP,LPAN1#CA'1LE1^CAMLt2^CAM 
c ^KL ^P#8K^RL^CNALP) 

SlSlNsfSN CN^r^nJ' SNALPd), YK(1), DC(1), DSd). CSUd) 

TAN (X ) =S IN (X ) /COS(X ) 

COMMON /GEOM/ HALFSWxXCP(200)yYCP(2T0),ZCP(200)/XLE(inn),YL£dut), 
1 XTEdOOUPSI (30) ^CH(IOO) ^XV(200) ,YV(200),SN(10,3),X^ ( 2 03 ^ 2 ) ^ Y N d iu 
2^2)/ZN(200^2)/WIDTH(7)^YCON(51)ipSWEEPd00)^HALFB/SJ(31^7) 

COMMON /AERO/ AM ^8 , CL ( 50 ) , C T ( 5 0 ) / C D ( 5 0 ) ^ C M ( 50 ) 

COM MO N /CONST/ NCS/NCW^MI (7)#MJW1 (2/5)/MJW2(2^5)#NJW(5)^NFP#Nhi{2) 
^COMMON) /SCHEME/ C ( 2 ) , X ( 1 0 ,4 1 ) , Y ( 1 0, 4 1 ) ^ S L OPE d 5 ) . X L ( 2 . 1 5 ) , X f T ( ^ 

LG=1 
NS=NCS 

IF (NGRO .EQ, 

ITWST=CM(1 ) 

IV=CM(50) 

ICAMT = CM(49) 

8 'I s B 

PI=3.1 4159265 
CN=NW(1) 

CS = OC ( 1 ) 

SS = DS < 1 ) 

ZB=0. 

YB = 0. 

YBB=0. 

IPM=1 

DO 29 1=1, NCS 
FCOS=COS (SWEEP! I ) ) 

FTAN=TAN(SWEEP (I )> 

C s T =C S 

IF (NW(2) .EQ. 0) GO TO 
11 = I + NCS 

CHL = CH (I) + CH(I1 ) 

GO TO 2 
CHL=CH (I ) 

CONTINUE 

SRT=SQRT(CH( I) /CHL) 

BB = B 
IZ = 1 
IW = 1 
MM=0 
ISN=1 
NM=NW( 1 ) 

NL = NW ( 1 ) 

A=0. 

KP=1+( 1-1 ) *NW(1 ) 

C0SD=DC(1 ) 

SIND = DS(1 ) 

ZA=0. 

YA = 0. 

YAA=0. 

IPN=1 

DO 17 NN=1,LPANEL 
L = NN 
J=NN-MM 


I 1 
I 2 
I 3 
I 4 
I 5 
I 6 
I 7 
I 8 
I 9 
I 1 0 
I 1 1 
I 1 2 
I 13 
I 14 
I 1 5 
I 16 
I 1 7 
I 18 
I 1 9 
I 20 
I 21 
I 22 
I 23 
I 24 
I 25 
I 26 
I 27 
I 28 
I 29 
I 30 
I 31 
I 32 
I 33 
I 34 
I 35 
I 36 
I 37 
I 38 
I 39 
I 40 
I 41 
I 42 
I 43 
I 44 
I 45 
I 46 
I 47 
I 48 
I 49 
I 50 
I 51 
I 52 
I 53 
I 54 
I 55 
I 56 


o 

Ln 
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FN = NL 

IF (NN .GE. LPANI .AND. NN .LT. LPANEL) GO TO 3 
GO TO 4 
3 NL=NW(?) 

IF (NN .GT. LPAN1 .AND. NN .LE. LPANFL) ISN=2 
A CONTINUE 

X1=XN(NN/1 )-XLE(I) 

X? = XN(NN/.2)-XLE<I) 

X12=XN(NN,?)-XN(NN^1) 

ISM=2 
FC = 1, 

IF (IV .EG. 1 .AND. IZ ,GT. IWING) ISM=1 
DO 12 K=1,ISM 

^ IF (K2.£Q.1.AMD,K.EQ.2) FC=-1. 

If (K .EG. 1) 60 TO 5 
N1 = 1 

GO TO 6 

5 N1=2 

6 CONTINUE ~ 

00 12 KK»UtG 

IF ( ABS ( C S«G OS D),6T. 0.001) GO TO 7 
IF (K ,EQ^ 1 .AND. KK .£Q, 1) GO TO 8 

7 CONTINUE 
PS=SIND 
PC=COSD 
QS = SS 
QC=CS 

60 TO 9 

8 PS = 0. 

PC=1. 

QS = 0, 

QC = 1. 

9 CONTINUE 
Y12=YN(NN#2)-YN(NN,1) 

Z12=ZN(NN^2)-ZN(NN#1)+Y12*PS 
Y1 2=Y1 2*PC 

YC=(-1,)**N1* ( YBB+ (YLE(I)-Y8)*QC) 

Y1 = YAA+( YN (NN^ 1 ) -YA) *PC-YC 
Y2=YAA+(YN(NN#2)-YA)*PC~YC 
XYK=X1 *Y12-Y1*X1 2 
IF (KK .EG. 1) GO TO 10 

ZC=-2.*(ZCP(KP)+Z8+(YLE(I)-YB)*QS+HEIGHT)+ZCP(KP)+Z3+(YLE(I)-Y6)*U 

IS 

GE = -1. 

FC0N=1. 

60 TO 11 

10 ZC=ZCP (KP) +ZB+( YLE ( I )-Y3) *QS 
GE = 1. 

FCON=0 . 

11 Z1=ZN(NN^1 )-ZC+ZA+(YN(NN^1)-YA)*PS 
Z2=ZN(NN^2)-ZC+ZA+(YN(NN^2)-YA)*PS 
XZJ=X1*Z12-Z1*X12 

UC0M=-Z1 *Y12*(-ATT)*FC0N 

YZI=Y1*Z12-Z1*Y12 

ALB 1 = X YK*XYK+XZJ*XZ J+B1*YZI *YZ I 

R1B1=SQRT(X1*X1+81*Y1*Y1+31*Z1*Z1) 

R2fi 1=S QRT ( X2 *X 2+B1 * Y2* Y2+B1 *Z2*Z 2 ) 
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UUR1 = (X2*Xl2+Bl*Y2*Y12 + 31*Z2*Z12)/R2B1-(X1*X12 + B1*Y1*Y12 + B1*Zl*^1<i 
1 )/R 1B1 

G1B1=(1.-X1/R181)/{Y1*y1+Z1*Z1) 

G2B1=(1.-X2/R2B1)/(Y2*Y2+Z2*Z2) 

F1=UUB1*(UC0M+XYK)*GE/ALB1 
F2=(-y2*G2B1+Y1*G1B1)*6E 
F3=-XZ J*UUB1 /ALB1*(-1 , ) **N1 
F4=(Z2*G2B1-Z1*G1B1)*(-1.)**N1 

12 A=A+<(F1+F2)*QC-(F3+F4)*QS)*SN(J,ISN)*GAMMA(NN)*CH(IZ)/FN 
1 *FC 

I F (NN .LT. NM .OR, NN ,EQ. LPAnEL) GO TO 1 7 

IW= IW+1 

I Z = I Z + 1 

MM=NM 

N'M=NM+NL 

IF (IWING ,NE. 0 .AND. IW ,EQ. (IWING+1)) GO TO 13 
IF (IW ,EQ. (NCS+1>) GO TO 15 
IF (YLE(IZ) ,LT. YK(IPN)) GO TO 17 

13 CONTINUE 

ZA=ZA+ (YK< IPN)-YA) *SIND 
YAA=YAA+(YK(IPN)“YA)*COSD 
YA = YK ( IPN) 

IF (IWING .NE. 0 .AND. IW .EQ. (IWING+1)) GO TO 14 
GO TO 16 

14 IF (IWGLT .EO. 1) GO TO 16 

15 ZA=0. 

YA=T). 

YAA=0. 

IF (IZ .EQ. (NCS + D) GO TO 16 
IF (IWGLT .NE. 2) GO TO 16 
ZA=YK (NC-2)*DS (1 ) 

YAA=YK (NC-2) *DC ( 1 ) 

YA=YK(NC-2) 

16 CONTINUE 
IPN=I PN+1 

IF (NN .EQ. LPAN1) IW=1 

IF (NN .EQ. LPAN1 .OR. NN .EQ. LPANEL) IPN=1 
COS D=DC ( IPN) 

SIN D=D S( IPN) 

17 CONTINUE 

IF (KZ.EQ.1) GO TO 23 
IF (lALP .EQ. 1) GO TO 21 

IF (JWING .NE, 0 .AND. I .GT. JWING) GO TO 22 
IF (ITWST .EQ. 1) GO TO 19 
IF (YLE(I) .GT. YTW) GO TO 1 8 
YX = YTW 

IF (1ST .LE. 2) YX=HALFB 

CAM=C AMLEl-( CAMLE1-C AMLE2 ) + YLE ( I ) /YX 

GO TO 20 

18 YX=YTW 

IF (1ST ,LE. 2) YX=0. 

CAM=CAMLE2-(CAMLE2-CAMLE3)* (YLE( I )-YX)-/(HALFB-YX) 

GO TO 20 

19 YC=YLE (I ) /HALFB 
CAM = Z C DX (0. , YC ) 

20 ALPT = SNALP (I ) 

GO TO 24 
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CAM=0. 


ALPT=1 . 

GO TO 24 
CAM=0. 

ALPT = SNALP(I ) 

IF (ICAIVT. EQ.O) GO TO 24 
CAM=C AMLE3 


GO TO 24 

2C=ZCP(KP)+ZB+(YLE(I)-YB)*DS(IPM) 

YC=YBB+(YLE(I)-YB)*DC(IPM) 

XC=XLE <I ) 

DSS=DS (IPM) 

DCC=OC (IPM) 

WBT=0. 

IF (BK.GT, 0.001 .OR. RL.GT. 0,001) CALL WBETA ( X Y C# Z C WB T^ D S #■ UC C 
1 , BK,RL^HALFB,XLL#XTT,NS/ I V, I W I N6^ NG R 0 # HE 1 6 HT / A TT , Y< , I WGL T #iMC ) 
ALPT=P*(ZC*DS( IPM) •l■YC*nC (IPM) ) / HA L FB + BK *D S ( I PM ) ~R L *X L E ( I ) / H AL F tt 
1 *DS (IPM)+WBT 
CAM=0. 

CST=1 . 

CONTINUE 


A=A/8.+CALPT-CAM)*CST 

A=A*SRT 

THRT1=A/(CN*SQRT(FTAN*FTAN+SB)) 

CD ( I) = THRT1 

IF (KZ.NE.O) GO TO 25 

CT(I)=(PI/2.)*SQRT(1.-AM*AM*FC0S*FC0S)*THRT1 

FCR=1. 

IF (THRT1.LT.0.) FCR=-1. 

CSU (I ) =CT (I) *FCR 
CONTINUE 

IF (IWING .NE, 0 .AND, I ,EQ, IWING) GO TO 
IF (I .EQ. NCS) GO TO 29 
IF (YLE(I+1) .LT. YK(IPM)) GO TO 29 
CONTINUE 

ZB=ZB+(YK(IPM)-YB)*SS 
YBB=YBB+ (YK(IPM)-YB)*CS 
YB= YK ( IPM) 

IF (IWING . NE. 0 .AND. I . EQ. IWING) GO TO 
GO TO 28 

IF (IWGLT ,EQ. 1) GO TO 28 
ZB = 0. 

YB = 0. 

YBB=0. 

IF (IWGLT .NE. 2) GO TO 28 
ZB=YK(NC-2)*DS(1 ) 

YBB=YK (NC-2)*DC(1) 

YB=YK ( NC-2 ) 

CONTINUE 
IPM=IPM+1 
CS=DC (IPM) 

SS=DS (IPM) 

CONTINUE 

RETURN 

END 


★THRT1 /F COS 
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VO 


SUB ROU TINE BENDIN (NC#CL#3M/IWINGrBREA<^SUMM,SUMT/NWIN6^HALFSH/HAL 
1 FBH^OC^DS,IWGLT,FTL) 

DIMENSION A(30), 8M(1), H(30)- PHK30)# BREAK(I)^ C.C1) 

DIMENSION DC(1)^ DS(1) 

COMMON /GEOM/ HALFSW/XCP(200),YCP(200)#ZCP(200)^XLE(10C)<.YLfc(10U), 
1XTE(100)^PSI(30)^CH(100)i-XV{2 00)^YV(200)^SN(10^3)^X\J(2 00^2)xYN(20u 
2#2)^ZN(200/2)#WIDTH(7),YC0N(51)^SWEEP(100)/fHALFB#.SJ(31^7) 

COMMON /CONST/ NCS^NCW,M1(7)^MJW1(2^5)/’MJW2(2^5)^NJ*I(5)/NFP/Nw(2) 
PI=3,1 41 59265 
NST=NC S-M1 (NO +1 
SUMF=0. 

SUMM=0. 

SUMS=0, 

FTL=n. 

ARE A=H ALFSH 
HAB=HALFBH 

IF (IWGLT .EQ. 1) HAB=HALF8 
IF (IWGLT .EQ. 2) AREA=HALFSW 

IF rrWGLT .EQ. 2) HABsHALTB - 

DO 10 1*1 ^NC 
M*Nr-I +1 

IF (I.NE.NC) DIHEFC=DC(M)*DC(M-1 )+DS(M)*DS(M-1 ) 

IF (I.NE.NC) DlHEFS=DS(M)*0C(M-1 )-DC (M)*DS(M-1 ) 

IF (I .EQ. NO DIHEFC = 1, 

IF (I .EQ. NO DIHEFS=Q. 

WSPAN=WIDTH(M) *0.5 

MM=M1(M>-1 

MM1 =M1 (M) 

FM=MM1 

IF (M .EQ. NWIN6) AREA=HALFSW 
IF (M .EQ, NWING) HAB=HALFB 
DO 1 J=1^MM 
FJ = J 

JJ = NST+J 
CH0RD=CH( J J) 

IF (NW(2) .NE. 0) CH0RD=CH0RD+CH (J J +NCS) 

PHI (J ) =FJ*PI/FM 
H(J)*CL(JJ)*CHORD*SJ(J<M) 

1 CONTINUE 

DO 3 J = UMM1 
A(J)=0. 

FJ=J 

DO 2 K*1#MM 

2 A( J )=A (J )+H(K) *C0S ( ( FJ-1 , ) *PHI (K) ) 

IF (J .EQ. 1) A(J)=A(J)/FM 

IF (4 ,NE. t) A (J )=A( J) *2./FM 

3 CONTINUE ■ ' - 

DO 6 K=1,MM1 

JK=MM1 -K 
KK = J K+ NS T 

BSP AN* BREAK ( M) - YLE (KK) +WS PAN 
IF (K .EQ. MM1) GO TO 5 

SUM=A (1)*((PI-PHI(JK))*BSPAN+SIN(PHI(JK))*WSPAN)-0.5*A(2)*WSPAN*( 
1PI-PHI (JK)-S1N(2.*PHI ( JK) )/2. >-A(2)*SINrPHI (JK) )*BSPAN 
DO 4 J*2^MM 
FJ = J 

SUM=SUM-BSPAN* A( J + 1 )*SIN(FJ*PHI(JK))/FJ+WSPAN*0.5*A(J + 1)*(SIN((FJ + 
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11.)*PHl(JO)/(FJ+1.)+SIN((FJ-1.)*PHI(JK))/(FJ-1.)) 
BM(KK)=WSPAN*SUM/(2.*AREA*HAB) +SUI«M+SUMF*(BREAK('«l+1)-YLt(KlO) 

GO TO 6 

5 BSPAN=WSPAN 

SUM = ( A (1 ) *BSPAN-0. 5* A ( 2) *WSPA,M ) *PI 

SUMM=W SPAN*SUM/(2.*AREA*HAB> +SUMM+SUMF*(BREAK(M«-1)-BREAK(M>) 

6 CONTINUE 


J 59 
J 60 
J 61 
J 62 
J 63 
J 64 


P1=A(1 )*PI*WSPAN/(2.*AREA*HA3) 

SUMF=CSUMF+P1)*DIHEFC-SUMS*0IHEFS 

SUMS=CSUMF+P1)*0IHEFS+SUMS*DIHEFC 

IF (M .EQ, (NWING + 1) .AND. Ii^ING .NE. 0) 60 TO 7 
GO TO 8 

7 SUMi-SUMM 
FTL=SUMF 

IF (IWGLT .EQ. 1) GO TO 8 
SUMM=0. 

SUMF=0, 

8 CONTINUE 

IF (I .EQ. NO 60 TO 9 
NST=NST-M1 (M-1 )+1 
GO TO 10 

9 NST=0 

10 CONTINUE 
RETURN 
END 
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SUBROUTINE WING (AW/LPANEL/I,8B,LPANULAT/'NGRD/HEIGHT^ATT^CS^b5^Y< 
1/DC/DSrIWING^ZB^YB,YBB/IWGLT,NC) 

DIMENSION AW(1) 

DIMENSION BWC200) 

DIMENSION W(2), Wl(2)/ YK(1)x DC(1)/ DS(1)^ V(.2), Vl ( 2 ) 

COMMON /GEOM/ HALFSW.-XCP(2 00)^YCP(2 00)^ZCP(200)^XLE(100)>'YLt(lUu)i. 
1XTE(100)/PSI (30) / CH( 100) ,XV(200) ^YV( 200)^SN(10/>3) ^X\) (200/2 )^Yn( 2UU 
2^?)/’ZN(200^2)i.WIDTH(?)^YC0N(51)#SWEEP(100)^HALFB#SJ(3U7) 

COMMON /AERO/ A M , B ^ C L ( 50 ) /■ C T ( 5 0 ) ^ C D ( 50 ) ^ C M ( 50 ) 

COMMON /CONST/ NCS/.NCW/-M1 (7);-MJW1 (2<-5)#MJW2(2/5)/NJW(5)^NFP,Nw{2) 
LG=1 

IF (NGRD ,EQ. 1) LG=2 
IV=CM( 50) 

W1 (1) = Q. 

V1 (1) = 0. 

IPN=1 
B1=BB 
IZ = 1 
IW =1 
1 FF =1 
ISN = 1 
NL = NW(1) 

NN=NW ( 1 ) 

C0SD=DC(1) 

SIN0=DS(1 ) 

ZA = 0. 

YA=0, 

YAA=0, 

DO 16 J=1^LPANEL 
V1 (2)=0. 

W1 (2) = 0. 

W(2)=0« 

V(2 ) = 0, 

MI=J-IFF+1 

FN=NL 

IF (J .GT, LPANI .AND, J .LE. LPANEL) ISN=2 
IF (J . 6 E, LPANI .AND, J ,LT, LPANEL) GO TO 1 
GO TO 2 
NL=NW (2) 

CONTI NUE 

X1 = XN( J 4 .I )-XCP(I ) 

X2=XN( J^2)-XCP(I) 

Xl2=XN(J^2)~XN(Ji-1 ) 

ISM=2 

IF (IV . EQ. 1 , AND. I Z .GT. I WING) ISM = 1 

DO 11 II=UISM 

IF (I I.EQ.1 ) GO TO 3 

N=1 

GO TO 4 
N=2 

CONTINUE 
DO 11 KK=1#'LG 

IF (ABS(CS-COSO) .GT. 0.001 ) GO TO 5 

IF (II .EQ. 1 .AND. KK .EQ. 1) GO TO 6 

CONTINUE 

PS=SIND 

PC=COSD 
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QS=SS 
QC=CS 
GO TO 7 
PS = 0. 

PC = 1. 

QS = 0. 

QC = 1. 

7 CONTINUE 

Y1 2=YN (J#2)-YN( J ) 

Z12=ZN(J/2)-ZN(J>,1)+Yl2*PS 
Y1 2=Y 1 2*PC 

YC=(-1,)**N*(YBB+(YCP(I)-YB)*aC) 

Yl = YAA+(YN(J^.1 )-YA)*PC-YC 
Y2 = YAA + (YN(J^.2>-YA)*PC-YC 
XYK=X1 *Y12-Y1*X1 2 
IF (K< .EQ. 1) GO TO 8 

ZC=-2.*(ZCP<I)+ZB+(YCP(I)-YB)*QS+HEI6HT)+ZCP(I)+ZB+(YCP(I)”YB)*QS 

FCON=1. 

60 TO 9 

8 ZC = ZCP(I)+ZB4-<YCPa)-YB)*QS 
FC0N=0. 

9 CONTINUE 

Z1=ZN(J^1)-ZC+ZA+(YN(J^1)-YA)*PS 

Z2=ZN(J^2)-ZC+ZA+(YN(J#2>-YA)*PS 

XZJ=X1 »Z12-Z1*X1 2 

UC0M=-Z1*Y12*(“ATT)*FC0N 

YZI=Y1 *Z12-Z1*Y1 2 

ALB1=XYK*XYK+XZJ*XZJ+B1*YZI*YZI 

R1B1=SQRT(X1*X1+B1*Y1*Y1+31*Z1*Z1) 

R281 = SQRT(X2*X2 + B1*Y2*Y2-«-31*Z2*Z2) 

UUB1=(X2*X12+B1*Y2*Y12+81*Z2*Z12)/R2B1-(X1*X12+B1*Y1*y12+B1*Z1*Z12 

1 ) /R 1B1 

G1B1=(1,-X1/R181)/(Y1*Y1+Z1*Z1) 

G2B1=(1.-X2/R2B1)/(Y2*Y2+Z2*Z2) 

F1=UUB1*(UC0M+XYK)/ALB1 

F2=-Y2 *G2B1+Y1 *G181 

F3=-XZ J*UUB1 /ALB1 

F4=Z2*G2B1-Z1*G1B1 

IF (KK .EQ. 2) GO TO 10 

W(II)=<F1+F2)*CH{IZ)*SN(MI,ISN)/<8.*FN) 

V(II) = (F3+F4)*CH(IZ)*SN(MWISN)/(8.*FN) 

W( I I) = W( 1 1 )*QC 
V( I I)=V( II )*QS 
GO TO 11 

10 W1 (II)=(F1+F2)*CH(IZ)*SN(«I,ISN)/(8.*FN) 

V1(II) = (F3 + F4)*CH(IZ)*SN<!^I/ISN)/(8.*FN) 

W1 ( II ) =W1 < I n*QC 

VI ( II ) =V1 ( II ) *QS 

11 CONTINUE 

AW(J)=W{1)+W(2)-W1(1)-W1(2)-(V(1)-V(2)+V1(1)-V1(2)) 

BW(J)=W(1)-W(2)-W1(1)+W1(2)-(V(1)+V(2)+V1(1)+V1(2)) 

IF (J .LT. NN .OR. J .EQ. LPANEL) GO TO 16 

IZ= IZ+1 

IW=IW+1 

IFF =NN + 1 

NN=NN+NL 

IF (IWING .NE. 0 .AND. IW .EQ, (IWING + D) GO TO 12 
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IF (IW .EQ. (NCS+1)) GO TO 14 K 115 

IF (YLE(IZ) ,LT. YK(IPN)) GO TO 16 K 116 

12 CONTINUE K 117 

Z4=ZA+ (YK( IPN)-YA)*SIND K 118 

YAA=YAA+(YK( IPN)-YA) *COSD K 119 

YA=YK ( IPN) K 1 20 

IF (IWING ,NE. 0 .AND. IW .EQ. (IWING+D) GO TO 15 K 121 

GO TO 15 K 122 

13 IF (IWGLT ,EQ. 1) GO TO 15 K 123 

14 ZA=0. K 124 

YA = 0. K 125 

YAA=0. K 126 

IF (IW .EQ, (NCS+D) 60 TO 15 K 127 

IF .(IWGLT .NE, 2) GO TO 1 5 K 128 

ZA=YK(NC-2)*DS(1 ) K 129 

YAA=YK (NC-2) *DC <1 ) K 130 

YA=YK(NC-2) K 131 

15 CONTINUE K 132 

IPN = IPN+1 K 133 

IF (J .EQ, LPANi .OR, J ,EQ. LPANEL) IPN=1 K 134 

COSD=DC(IPN) K 135 

SIND=DS(IPN) K 136 

16 IF (J ,EQ. LPANI .OR, J .EQ. LPANEL) IW=1 K 137 

WRITE (01) (AW(J)/J=1 ^LPANEL) K 138 

WRITE (01) (BW( J )^J=1 , LPANEL) K 139 

RETURN K 140 

END K 1 4 1- 


u> 



SUBR0UTU4E LATERL (GAMMA/AW/.CA,LAT/LPANEL^LPANl/DF/\JAL/YK/DS#DC/l«r 
1ING/IW6LT/NALP/ALP/GAMP,GAMB/GAI«R,CP,GAMX^8REAK/SWP, CHOROT,YCN/ 

2 SNALP^CNALP) 

DIMENSION GAMMA(I)^ AW(1)^ CA(1)^ DF(1), YK(1), DSC!) 

dimension DC(D# GAMP(I), GAMB(I)/ GAMR(1), CP(1), GAMXd)/. tsREAK( 
11), SWPdO^IS)^ CHORDTd), YCNd>^ SNALPd)^ CNALP(I) 

COMMON /GEOM/ HALFSW,XCP(2O0)/YCP(2OO)^ZCP(2OO)#XLE(lO0)^YL£dJu)# 
1XTEdOO)^PSI(30)/'CHdOO)^XV(200)/YV( 200)^SNd0^3)^XN(2 00/2)^YN(200 
2/2)^ZN(2 00/’2)i-WIDTH(7),YCON(51)^SWEEPd00)#HALFB^SJ(31#7) 

COMMON /CONST/ NCS/NCW,M1(7)>-MJW1(2/5)/MJW2(2/5)^NJ/4(5)^NFP/’NW(2) 
COMMON /SCHEME/ C<2)#X(10yA1)#Yd0,A1)/SL0PE<15)^XL(2^15)^XTT{41)^ 
1 XLL (41 ) 

COMMON /AERO/ AM #B / C L ( 50 ) # C T ( 5 0 ) # C D ( 5 0 ) ^ C M ( 5D ) 

COMMON /EXTRA/ C AM LE 1 ^ C AMLE 2 ^ C AML E 3^ YT I S T I NP^ NGR D^HEIGHT,ATTv-N 
1C/.NWING#HALFBH/IP0S#IALP 

COMMON /BETA/ GM AX ( 5 0 ) # X TG < 50 ) / Y TG ( 5 0 ) ^ Z T G ( 50 ) ^ B2 NC G^ C TG ( 1 5) # S TG ( 
115)^DIST 

DIMENSION DUM(20_Q># DUMY(200)»> DUMZC 200)^ DUMS(200)^ DUMC(20D) 

L1=LPANEL+1 

IV=CM(50) 

PI=3.1 4159265 
IF (LAT.EQ.1) GO TO 5 
REWIND 01 

READ (01) (DUM(I),I = ULPANEL) 

READ (01) (AW(I),I=1#LPANEL) 

AW(Li ) =n, 

DO 1 I=1i»LPANEL 

1 GAMMA( I)=-AW(I+1 )/AW(1 ) 

NJ =LPANEL-1 

MM=NW( 1 ) 

NN=NW(1) 

DO 4 IJ=2/LPANEL 

READ (01) (DUM(K),K=1 ^LPANEL) 

READ (01) (AW(K) ^<=1 ^LPANEL) 

AW( LI ) =0. 

IF (IJ ,GE, MJWKUNAL) .AND. IJ .LE. M J W2 ( 1 NAL ) ) 60 TO 2 
IF (IJ .GE. MJW1(2,NAL) .AND. IJ .LE. MJW2(2^NAL)) A W ( L 1 ) = D F ( N A L ) 
GO TO 3 

2 IF (I J ,EQ. MM) AW(L1 ) = 0 . 5 * D F ( N AL ) 

3 IK=IJ 

CALL VMSEQN ( N J I K , A W , G A MM A <-C A ) 

NJ = NJ-1 

IF (IJ.GE.LPAN1.AND.IJ.LT.LPANEL) NN=NW(2) 

IF (IJ .LT. MM) GO TO 4 

mm=mm+nn 

4 CONTINUE 
RETURN 

5 KZ = 1 
BK = 0, 

P = 0.1 
RL = 0. 

NWW=NW (1 ) 

IST=0 

IF (NW (2), NE .0) NWW=NW(2) 

IF (NW(2),NE.O) IST=LPAN1 
DO 8 I=1^-NCS 
GMAX(I)=0, 
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1 

2 
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4 
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8 
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12 

13 

14 
1 5 
16 
1 7 
18 
1 9 
20 
21 
22 

23 

24 

25 
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38 
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41 

42 

43 

44 

45 
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6 

7 

8 


9 


10 


MK=IST+<I-1) *NWW 
IKsI 

IF (NW(2).NE.3) IK=I+NCS 
DO 7 LQsl^NWW 
LP=MK+LQ 
AA = 1 , 

00 6 LS=1#NWW 

LN=MK + LS 

IF (LS.EQ.LQ) GO TO 6 

AA=AA*(XTE(IK)-XV(LN))/(XV(LP)’XV(LN)) 

CONTINUE 

6MAX{I)=GMAX<I)+AA*6AMX(LP) 

CONTINUE 
NCG=8 
FN = NCG 

DIST=0IST*2. 

00 9 I=WNCG 

Flal 

AG«(2,*FI-1. )*PI/(2.*FN) 

CT6(I)=C0S(AG) 

ST6(I)«SIN(A6) 

00 33 IaU3 

MM*NW<1 ) 

NN*NW(1 ) 

IPN=1 


IPM=0 
IZ = 1 
IW=1 
YB»0. 

ZB = 0. 

YBB=0, 

IF (I.NE.1 ) REWIND 03 

00 15 IJ=1^LPANEL 

YC=YBB + (YCP(IJ)-YB)*OC (IPN) 

ZC=ZCP(IJ)+ZB+(YCP(IJ)~YB)*OS(IPN) 

XC=XCP(IJ ) 

WBTaO. 


OSS=OS (IPN) 
OCC*OC { IPN) 
IZ=IW 


IF (Is,NE»1) CALL WBETA ( X C ^ YC # Z C ^ WBT #DSS ^ OC C # BK #R L ^HA L FB ^X LL #X T T 

ics,iv^iwing,-ngro,height,att,yk,iwglt'nc) 

1HALFB*0S(IPN)+WBT^^^^^^*^^ ^^'*^^^^^'^*^^*^*^*^^^^^^^” RL*XCP(IJ)/ 

If (I.NE.D GO TO 10 
0UM<IJ)=0C(IPN) 

DUMSd J) = OS( IPN) 

OUMC(IJ)»CNALP(IZ) 

OUMYCIJ )=YC 
DUM2(IJ)=ZC 
CONTINUE 

IF (IJ ,GE. LPAN1 .AND. IJ 
IF (IJ ,LT. MM) GO TO 15 
MM*MM+NN 


.LT. LPANEL) NN*NW(2) 


IZ=IZ+1 

IW* IW+1 

IF (IWING .NE. 0 .AND, IW .EQ. 
IF (IW.EQ. (NCS4-1 )) GO TO 13 


(IWING + D) GO TO 


1 1 


N 
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58 
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71 

72 
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IF (YLE(IZ) .LT. YK(IPN)) GO TO 15 

11 CONTINUE 

2B=ZB+(YK(IPN)“Ye)*DS(IPN) 

YBB=YBB+(YK( IPN)-YB)*DC(IPN) 

YB= YK ( IPN) 

IF (IWING.NE.O,AMD.IW,EQ.(IWING+1 )) GO TO 12 
GO TO 14 

12 IF (IWGLT.EQ.1) GO TO 14 

13 ZB=0. 

YB=0. 

YBB=0. 

IF (IW.EQ. (NCS+1 )) GO TO 14 
IF (IWGLT.NE,?) GO TO 14. 

ZB=YK(NC-2)*DS(1 ) 

YBB=YK (NC-?) *DC ( 1 ) 

YB=YK ( NC-2 ) 

14 CONTINUE 
IPN=IPN+1 

IF (IJ .EQ. LPAN1 .OR. IJ .EQ. LPANEL) IPN=1 

15 IF (IJ ,EQ. LPAN1 .OR. IJ .EQ. LPANEL) IW='’ 

IF (I.EQ.1) 60 TO 17 

REWIND 02 

IF (NALP.EQ.1) GO TO 17 
DO 16 K=1^LPANEL 

16 READ (02) (A W ( J ) ,J =1 , LPANEL ) 

17 DO 1 9 J=1 ^LPANEL 
GAMMA (J)=0. 

READ (02) (AW(K) ^K=1 ^LPANEL) 

DO 18 K = 1i.LPANEL 

18 GAMMA(J)=GAMMA(J)-AW(K)*CA(K) 

19 CONTINUE 

CALL THRUST ( L P A NE L^ G AMM A ^ S NA L P^ I ALP ^ L P AN U C A M L 6 1 ^ C A ML E 2 , C AMLE 3 ^ Y T 
IW^ISP^IWING^TINP^NGRD^HEIGHT^-ATT^YK^DC^-DS-fCA-oIWlNG^IWGLT^NC^NZ^ 

2 Pi^fiKyPL^CNALP) 

CALL GAMAX (AW^CA#LPANl#LPANEL#GAMMA^NC<.'BREAK^SWP#CHORDT<-IWINb-» 

1 NWINGi.HALFBH^YCN^SLOPE#CTX^IWGLT,IPOS^.KZ) 

IF (I.EQ.1-) GO TO 23 
IF (I. EQ.2) GO TO 27 
DO 20 K=1#LPANEL 

20 GAMR(K)=GAMMA(K)*DUMC(K)-YV(K)/HALF3*CP(K)*RL-XV(K)/HALFB 

1 *GAMX ( K) *RL*OUM (K) 

DO 21 K=1^NCS 

21 Y(10/’K) = CD(K) 

DO 22 K=1#NCW 
XL( I^K )=CL (K ) 

22 IF (IWING.NE.O) XL ( 2 #K ) =C M ( K ) 

GO TO 31 

23 DO 24 K=1#LFANEL 

24 GAMP(K)=GAMMA(K)*DUMC(K)+DUM(K)*p*DUMZ(0/HALFB*GAMX(K)-DUMS(k)*P 
1 *DUMY ( K) /HAL FB*GAMX (K ) 

DO 25 K=1^NCS 

25 Y(4/K)=C0(K) 

DO 26 K=1^NCW 
Y(5#-K)=CL(K) 

26 IF (IWING.NE.O) Y(6^K)=CM(K) 

GO TO 31 

27 DO 28 K=1#LPANEL 
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1 1 5 
1 1 6 
1 1 7 
1 1 8 
1 1 9 
1 20 
121 
1 22 
1 23 
1 24 
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126 
1 27 
1 28 
1 29 
1 30 
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1 32 
1 33 
1 34 
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1 36 
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149 
1 50 
1 51 
1 52 
1 53 
1 54 
1 55 
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1 58 
1 59 
1 60 
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1 62 
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1 64 
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1 67 
1 68 
1 69 
1 70 
171 



28 

GAMB(K)=GAMMA(K)*DUMC(0+BK*GAMXCK)*DUM(K) 

L 

1 72 


DO 29 K = 1/.NCS 

L 

1 73 

29 

Y(7irK) =CD(K) 

L 

1 74 


DO 30 K=1,NCW 

L 

175 


Y(8^K) =CL(K) 

L 

176 

30 

IF (IWING.NE.O) Y(9^K)=CM(K) 

L 

1 77 

31 

IF (I.EQ.1) GO TO 32 

L 

1 78 


IF (I.EQ.3) GO TO 33 

L 

1 79 


RL=0. 1 

L 

1 80 


BK = 0. 

L 

181 


GO TO 33 

L 

1 82 

32 

BK = 0. 1 

L 

1 83 


PsO. 

L 

1 84 

33 

CONTINUE 

L 

1 85 


RETURN 

L 

186 


END 

L 

1 87- 



00 


SUBROUTINE WBETA <X/Y^Z»WN,DSS/DCC/BK/RL/HALFB/’DS/.DC#NCS/IV/IWlNo^ 
1 NGRD^HE1GHT^ATT#YK,IWGLT^NC) 

DIMENSION DS(T)# DC(1)/ C0N(2), W(2)/ V(2)# YK(1) 

COMMON /BETA/ GMAX(50)#XTG(50)#YT6(50)/ZTG(50)/82#NCG^CTG(15)»STt.( 
115) ,DIST 
DATA CON/1 ./ 

DIST2=0.5*DIST 

FN=NCG 

WW = 0. 

VV=0. 

LG = 1 

IF (NGRD.EQ.1) LG=2 
ZA = 0. 

YA = 0. 

YAA=0. 

IPN=1 

DO 13 I=1^NCS 
IF (BK.GT.0.01) PR=BK*DC<I> 

I$M=2 

IF (IV.EQ.I.AND.I.GT.lWING) ISM=1 
C J=2 FOR LEFT WING EFFECT 

00 8 J = mSM 

W(J)=0. 

V( J ) = 0. 

DO 8 K=1^NCG 
DO 8 KK=1,LG 
YC = Y*CONfJ) 

QX1 =XTG(I) +DIST2*(1 .-CTG(K) ) 

QX2=XTG( 1+1 ) +D IST2* ( 1 .-CTG <K) ) 

IF (RL.GT.0.01) PR=-RL*0. 5+ (QXI +QX2) /H ALFB 

IF (RL.GT.0.01 ) GO TO 6 

Xl=QX1”X 

X2 = QX 2-X 

XI 2=QX 2-QX 1 

IF ( A8S(DCC-DC (I ) ) .GT.0.001 ) GO TO 1 
IF (J. EQ.1 .AND.KK.EQ.1 ) GO TO 2 

1 PS=OS(I) 

PC=OC(I) 

GO TO 3 

2 PS=0. 

PC = 1 « 

3 CONTINUE 

Y1 2=YTG(I + 1 ) -YTG (I ) 

Z12=ZTG(I+1)-ZTG(I>+Y12*PS 
Y1 2=Y1 2*PC 

Y1 = YAA + < YTG< I )-YA)*PC“ YC 
Y2=YAA+(YTG(I+1)-YA)+PC-YC 
XYK=X1 *Y12-Y1*X1 2 
IF (KK.EQ.1) GO TO 4 
ZC = -2. *( Z + HE IGHT ) + Z 
GE = -1. 

FC0N=1 . 

GO TO 5 

4 ZC = Z 
GE = 1. 

FC0N=0. 

Z1=ZTG(I)-ZC+ZA+(YTG(I)-YA)*PS 


M 1 
M 2 
M 3 
M 4 
M 5 
M 6 
M 7 
M 8 
M 9 
M 1 0 
M 1 1 
M 1 2 
M 1 3 
M 14 
M 1 5 
M 1 6 
M 1 7 
M 1 8 
M 19 
M 20 
M 21 
M 22 
M 23 
M 24 
M 2 5 
M 26 
M 27 
M 28 
M 29 
M 30 
M 31 
M 32 
M 33 
M 34 
M 35 
M 36 
M 37 
M 38 
M 39 
M 40 
M 41 
M 4 2 
M 43 
M 44 
M 45 
M 46 
M 47 
M 48 
M 49 
M 50 
M 5 1 
M 52 
M 53 
M 54 
M 55 
M 56 
M 57 


5 



00-^0 


1 RBI 

GB1=(1,-X1/RB1)/(Y1*Y1+Z1*Z1) 
682=(1,-X2/RB2)/(Y2*Y2+Z2*Z2) 
F1=UB*(UC0M+XYK)*GE/ALB1 
F2=<-Y2*GB2+Y1*6B1 )*GE 
F3=-XZ J*UB/ALB1 *C0N( J ) 
F4=(Z2*GB2-Z1*GB1)*C0N<J) 
P1=-(F3+F4)*STG(K)*GMAX(I)*0IST/FN 
P2=-(F1+F2)*STG(K)*GMAXCI)*DIST/FN 
WRITE (03) P1,P2 
GO TO 7 
READ (03) P1,P2 
V(J )=V(J)+P1*PR 
W(J ) = W(J)+P2*PR 
IF (RL.GT.0,01) GO TO 12 
IF (IWING.NE.O.AND. I.EQ. IWING) GO TO 
IF (YTG(I+1) .LT. YK(IPN)) GO TO 12 
ZA=ZA+(YK(IPN)-YA)*DS(I) 

YAA=YAA+(YK( IPN)-YA)*DC(I) 

YA=YK ( IPN) 

IF (IWING.NE.O .AND, I,EQ,IWING) GO TO 
GO TO 11 

10 IF (IWGLT.E0.1 ) GO TO 11 
ZA=0. 

YA = 0. 

YAA=0. 

IF (IWGLT.NE.2) GO TO 1 1 
ZA= YK ( NC“2 )*DS (1 ) 

YAA=YK (NC-2)*DC(1) 

YA=YK(NC-2) 

11 IPN=IPN+1 

12 CONTINUE 

WW = WW+ (W(1 )-W( 2 ) ) /8. 

VV=VV+(V(1 )~V(2) )/8, 

13 CONTINUE 
WN=WW* OCC-VV*DSS 
RETURN 

END 


M 58 
M 59 
M 60 
M 61 
M 62 
M 63 
M 64 
M 65 
M 66 
M 67 
M 68 
M 69 
M 70 
M 71 
M 72 
M 73 
M 74 
M 75 
M 76 
M 77 
M 78 
M 79 
M 80 
M 81 
M 82 
M 83 
M 84 
M 85 

10 M 86 

M 87 
M 88 
M 89 
M 90 
M 91 
M 92 
M 93 
M 94 
R 95 
M 96 
M 97 
M 98 
M 99 
R 100 
R 1 01 
R 102 
M 103 


72=ZTG(I+1)-ZC+ZA+(YTG(I+1)-YA)*PS 
XZ J =X 1 *Z 1 2-Z 1 * XI ? 

UC0M=-Z1*Y12*(-ATT)*FC0N 
YZ I =Y1 *Z 1 2-Z 1 * Y1 2 

ALB1=XYK*XYK+XZJ*XZJ+B2*YZI*YZI 

RB1=S0RT(X1*X1+B2*Y1*Y1+32*Z1*Z1) 

RB2=SQRT(X2*X2+B2*y2*Y2+32*Z2*Z2) 

UB=(X2*X12+B2*Y2*Y12+B2*Z2*Z12)/RB2-(X1*X12+B2*Y1*Y12+B2*Z1*Z12)/ 



ho 

O 


SUR ROUTINE BACKWH (X^Y/Z^LP AN EL^B^LPAN1,NW/ GAMMA ^\/X»LAT^CD/:>D^YK# 
1DC^0S,VT/IWING/Z3,Y3/Y83/NCS*-IWGLT#NC) 

DIMENSION NWd)/ GAMMAC1)# U(2)/ YK(1)/ DCd)^ DS(1) 

COMMON /GEOM/ H AL F S W , X C P ( 200 ) ^ Y C P ( 2 0 0 ) / Z C P ( 200 ) ^ XL E( 1 00 ) ^ YLE < 1 Uu) / 
1XTE{100)#PSI(30)/CH(100)/'XV(200)^YV( 200)*'SN(10^3)»XN(200^2)^YN(2uQ 
2^2)/ZN(200/2)^WIDTH(7)^YC0N(51),SWEEP(100)^HALFB,SJ(31,7) 

B1 =B 
IZ = 1 
IFF=1 
ISN=1 
IPN = 1 
IW = 1 

C0SD=DC (1 ) 

SIN0=DS(1 ) 

ZA=0. 

YA = 0. 

YAA=0. 

MM=NW(1) 

NN=NW(1) 

VX = 0. 

VT^-O. 

DO 6 J = ULPANEL 
J J = J 

MI=J-I FF+1 
FN=NN 

IF (J .GT, LPAN1 ,AND. J .LE. LPANEL) ISN=2 
IF (J .GE. LPAN1 ,AND. J .LT. LPANEL) NN=NW(2) 

X1=XN(J^1)-X 
X2=XN( J^2)-X 
XI 2=XN (J ,2)-XN ( J ) 

Y1 2=YN ( J ^2) - YN ( J ,1 ) 

Z12=ZN(J^2)-ZN(J#1)+Y12*SIND 
Y1 2=Y1 2*COSD 

Z1=ZN(J^1)-(Z+ZB+(Y-YB)*SD)+ZA+(YN(J#1)-YA)*SIND 
Z2 = ZN(J^2)-(Z + ZB + (Y-YB)*SD)4-ZA + (YN(J,2)-YA)*SIND 
XZJ=X1 *Z12-Z1*X1 2 
DO 1 11=1,2 

F C P =1 « 

IF (II .EQ. 2) FCP=-1. 

YC=FCP*(YBB+(Y-YB)*CD) 

yi=YAA+(YN(J,1)-YA)*C0SD-YC 

Y2=YAA+(YN(J,2)-YA)*COSD-YC 

XYK=X1 *Y12-Y1*X1 2 

YZI=Y1*Z12-Z1*Y12 

ALB1=XYK*XYK+XZJ*XZJ+B1*YZI*YZI 

R1B1=SQRT(X1*X1+B1*Y1*Y1+81*Z1*Z1) 

R2B1=SQRT(X2*X2+B1*Y2*Y2+81*Z2*Z2) 

UUB1=( X2*X12+B1 *Y2*Y1 2+81 *Z2*Z12)/R2B1-(X1*X1 2 + 31* Y1 *Y1 2 + B1*Zl *Z12 
1 )/R 1B1 

G1=(1,-X1/R1B1 )/ (Y1*Y1+Z1*Z1) 

G2=(1.-X2/R2B1)/(Y2*Y2+Z2*Z2) 

F1=UUB1*XYK/ALB1 
F2=-Y2*G2+Y1 *G1 
F4=-XZ J*UUB1 7ALB1 
F5=Z2*G2-Z1*G1 
F12=-(F1 + F2) 

F45=F4+F5 
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IF (LAT .EQ. 0) FA5=F45*FCP 

IF (LAT .NE. 0) F12=F1?*FCP 

F3=UUB 1*YZ I/ALB1 
IF (LAT .NE. 0> F3=F3*FCP 

U(II) = F3*CH(IZ)*SN(»U/ISN)*GAMMA(JJ)/(8.*FN) 
VT=VT+(F12*SD+F45*CD)*CH(IZ)*SN(MI,ISN)*GAMMA(JJ)/(B.*FN) 

1 CONTINUE 

VX = U(1 )+U( 2) +VX 

IF (J .LT. I^M) GO TO 6 

IZ=IZ + 1 

IW=1W+1 

I F F=MM+1 

MM=MM+NN 

IF ( I WING . NE, 0 .AND. IW .EQ. ( IWING+1 ) ) GO TO 2 

IF (I W .EQ. (NCS+1 ) ) GO TO 4 
IF (YLE(IZ) .LT. YK(IPN)) GO TO 6 

2 CONTINUE 

ZA=ZA+ (YK ( IPN)-YA)*SI ND 
YAA=YAA+(YK( IPN)-YA)*COSD 
YA= YK ( IPN) 

IF (IWING .NE. 0 .AND. IW .EQ. (IWING+D) 60 TO 3 

GO TO 5 

3 IF (IWGLT .EQ, 1) GO TO 5 

4 ZA=0. 

YA = 0. 

YAA=0. 

IF (IW ,EQ. (NCS+1)) GO TO 5 
IF (IWGLT .NE. 2) GO TO 5 
ZA=YK(NC-2)*0S(1 ) 

YAA=YK (NC~2) *DC ( 1) 

YA = YK ( NC-2 ) 

5 CONTINUE 
IPN=IPN+1 



IF (J .EQ. 

COS D=DC ( IPN) 
SIND=DS( IPN) 

LPAN1 

. OR . J 

.EQ. 

LPANEL ) 

IPN = 1 

6 

IF (J .EQ. 

LP AN1 

.OR, J 

, EQ, 

LPANEL) 

IW=1 


RETURN 

END 
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SUBROUTINE PANEL (XXL^YL/XXT/CPCWL/CPSWL/’NSW#IPANEL^LPANEL/SwH,LK/ 
1 ZS^L) 

DIMENSION XXL(1)^ YL(1)^ XXT(1), CPCWL(I)^ CPSWL(I) 

DIMENSION SWP(10^15) 

COMMON /SCHEME/ C(2)^X(10,41),Y(10^41),SL0PE(15)/XL(2-f15)^XTT(41)^ 
1 XLL (41 ) 

COMMON /GEOM/ HALFSUI,XCP(200)/'YCP(200)#ZCP(200)^XLE(100)^YLtnU0)/ 
1XTEnOO)/PSI(30)/.CH(inO)^XV(200)#YV(200)^SN(10^3)rXN(200^2),YN(2uU 
2^2)^ZN(200>’2)^WIDTH(7)^YC0N(51)^SWEEP(100)^HALFB,SJ(31,7) 

COMMON /CONST/ NCS<-NCW^M1(7),MJWl(2/5)#MJW2(2^5)^NJ«/(5)/NFP^N«(4) 
COMMON /BETA/ GMAX(50)/XTG(50)^YTG(5n),ZTG(50)»32,NCG^CTG(1>),STb( 
115)^DIST 
PI = 3. 1 41 59265 
NSW1=NSW-1 
NR = B2 

DO 1 I = 1/'2 
C(I)=XXT(I)-XXL(I) 

DO 1 J=1^NCW 

XL( I#J > = XXL(I)+CPCWL(J)*C<I)/1 00, 

SPAN=YL(2)-YL ( 1 > 

DO 2 J=1/NCW 

PSI(J)=0.5*(1.-C0S(FL0AT(J)*PI/FL0AT(NCW))) 

SL0PE(J)=(XL(2,J)-XL(1^J))/SPAN 

SWP(J^LR)=ATAN(SLOPE(J)) 

SPN=(XXT(2)-XXT(1))/SPAN 
DO 5 K=1/NSW 
YK=CPSWL (K )*SPAN/1 00. 

IF (NW(2).EQ.O) 60 TO 3 
IF (L.EQ.1) GO TO 4 
KK=NR+K 

YTG (KK )=YL (1 ) +YK 

XTG(KK) = XXT(1)+SPN*(YTG(KO-YL(1)) 

ZTG (KK ) = ZS 
CONTINUE 
DO 5 J = UNCW 
Y(J/K)=YK + YL(1 ) 

X(J,K)=XL(1/.J)+SL0PE(J)*(Y(J,K)-YL(1)) 

CONTINUE 
XLL (1 ) =XXL (1 ) 

XTT(1)=XXT(1) 

DO 6 I = 2^.NSW 

XLL(I)=XLL(I~1) + (XXL(2)-XXL(1))*(Y(1,I)-Y(1/.I-1))/S=AN 
XTT(I)=XTT(I-1)+(XXT(2)-XXT(1))*(Y(1,I)-Y(1,I-1))/S=AN 
DO 8 K=UNSW1 
KK = NC S+K 

YLE(KK)=YC0N(K)*SPAN+YL(1) 

XLE(KK)=XLL(K)+(XLL(K+1)-XLL(K))*(YLE(KK)-Y(1,K))/(Y(1^K+1)-Y(1^K) 
1 ) 

XTE(KK)=XTT(K)+(XTT(K+1)-XTT(K))*(YLE(KK)-Y(1/K))/(Y(1/K+1)-Y(1/K) 
1 ) 

CH (KK) =XTE (KK)-XLE (KK) 

SWEEP(KK)=ATAN((XXL(2)-XXL(1))/SPAN) 

DO 8 J = UNCW 

NPANEL = (K-1 ) *NCW +J-14-IPANEL 
DO 7 I = U2 
K1 1 =K+ 1-1 

XN ( NPANEL/' I ) =X ( J ^K I 1 ) - 
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YN ( NPANEL^ I ) =Y ( J ,K 1 1 ) 

ZN( NPANEL/. I)=Z S 

7 CONTINUE 

XCP(NPANFL)=XLE(KK)+PSI(J)*CH(KK) 

YCP(NPANEL)=YLE(KK) 

ZCP (NP ANEL) = ZS 

XV(NPANEL)=XLE(KK)+CPCWL(J)*CH(KO/inO. 
YV(NPANEL)=YLE (KK) 

8 CONTINUE 
LPANEL=NPANEL 
RETURN 

END 
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SUBROUTINE DRAG ( C L T / Y BR E A K , N C # T F L P N A L ) 

DIMENSION ALPHI(50)^ YBREAK(I)/ TFLPd)/ XK(50)# YK(50) 

COMMON /GEOM/ HALFSW/XCP(200)/YCP(200),ZCP(200)/XLE(100)^YLE(1QU)^ 
1XTE(100)/PSI(30)^CH(100)^XV(200)/YV(200)^SN(10^3)^XM(200/-2)^YN(2uU 
2a2)^ZN(200^2)#WIDTH(7)^YC0N(51)^SWEEP(100)^HALFB,SJ(3U7) 

COMMON /AERO/ AM # C L ( 50 ) / C T ( 5 0 ) ^ C D ( 50 ) / C M ( 50 ) 

COMMON /CONST/ NCS^NCW^M1(7)/'MJW1(2/5)^MJW2(2/'5)^NJW(5)^NFP,Nw(2) 
M=4 1 

Pl=3.1 41 59265 
NS= (M+1) /2-1 
MM1 =M-1 
FM=M 

DO 1 I = UNS 

FI= I 

J=M-I 

XK< I) = SIN(FI*PI/FM) 

XK( J)=XK<I) 

YK(I)=j^COS(FI*PI/FM) 

1 YK(J>a^YiC(n 
DO 2 I=1#NCS 

2 CMC D -SQRT (1 .-(YLE ( I > /HALFB) **2) 

IC=1 

BRE AK=YBREAK (1 ) 

MST=1 

MEN D = M 1 ( 1) -1 
DO 8 I=1#NS 
YCONCI )«0* 

CD( I) = 0. 

II=NS+I 

BB=YK ( II) aHALFB 

IF (BB .LE. BREAK) GO TO 3 

NK=M1(IC)-1 

IC= IC + 1 

NQ = M1 ( IC )- 1 

BREAK=YBREAK(IC) 

MST=MS T+NK 
MEND=MEND+NQ 

3 CONTINUE 

DO 7 J=MST#MEND 

IF (NWC2) ,EQ, 0) GO TO 4 

J1= J+NCS 

CH0RD=CH(J)+CH(J1) 

GO TO 5 

4 CHORD=CH(J) 

5 CONTINUE 

DO K=MST^MEND 

IF CK .EQ. J) go to 6 

A=A*(BB-YLE(K))/(YLE(J)-YLE(K)) 

6 CONTINUE 
CDCI)=CD(I)+A*CL(J)*CM(J) 

7 YCONC I )=YCON (I ) + A*CHORD 
CD(I)=CD(I)/SQRT(1,-YKCII)**2) 

8 CONTINUE 

DO 14 I=1^NS 
ALPHI C I ) =0<. 

IN=NS + I 
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DO 13 J = 1/»M1 

IF (J .EQ. IN) GO TO 9 

INDEX=IABS (J-I N) 

FACT0R=2.*((-1.)**IN0EX-1,)*XK(J)/(FM^<YK(J)-YK(IN))**2) 
60 TO 10 

9 FACTOR=FM/XK (J ) 

10 IF (J .6T. NS) GO TO 11 
JJ = M-J-NS 

GO TO 12 

11 JJ=J-NS 

12 ALPHI(I)=ALPHI(I)+CD(JJ)*YCON(JJ)*FACTOR 

13 CONTINUE 

ALPHI < I )=ALPHI (I)/(16,*HALFB) 

14 CONTINUE-- 

CDI =0. 

DO 15 I=1#NS 
IN=NS+I 

15 CDI=CDI+CO(I)*YCON(I)*ALPHI(I)*XK(IN) 

CDI =CDI*HALf8*PI /<HALFSW*f M) 

CDL2=CDI/(CLT*CLT) 

WRITE (. 6 ^ 16) CDI 
WRITE (6, 17) CDL2 
RETURN 
C 

16 FORMAT (/2Xi- 23HFAR-FIEL0 INDUCED DRA6=#F10.5) 

17 FORMAT (/2X#33HFAR-FIELD INDUCED DRAG PA R AME T E R=# F 1 D . 5 ) 
END 
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SUBROUTINE VMSEQN ( N C 1 ^ K ^ A A ^ A ^ C A ) 
DIMENSION AA(1)/ CA(1)/ A(1) 

NC = K*N Cl 
SUM 1=0. 

K1 =K-1 
JJ = 1 

DO 1 J = nKl 
SUM1=SUM1+AA (J )*A(JJ ) 

1 JJ=JJ+NC1+1 
SUM1=SUM1+AA(K) 

DO 3 I = UNC1 
SUM2=0. 

JJ=I+1 

DQ 2 J.= UK1 - 
SUM2=SUM2+AA ( J )*A( JJ) 

2 JJ=JJ+NC1+1 
KKsK+I 

SUM2=SUH2+AA (KK) 

3 CAU>=”SUM2/SUM1 
M=1 

L = 0 

KNC=(K-1 )*NC1 
DO 6 I=1^NC 
IF (I.GT.KNC) 60 TO 5 
MM= (M-1 ) *NC1 +1 
IF (I.EQ.MM) GO TO 7 

4 KK=KK+1 
IL= I + L 

A(I )=CA(KK)*BASE+A(IL) 

GO TO 6 

5 II = I-KNC 
Ad ) = C A(II ) 

6 CONTINUE 
GO TO 8 

7 II = MM+M-1 
BASE=A(II) 

KK = 0 

L = L + 1 
M=M+1 
GO TO 4 

8 CONTINUE 
RETURN 
END 
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SUBROUTINE GAM AX (AW#CA,LPANl#LPANEL/GAMMA/NC^BREAK,SWP#CHURUT^Iwi 
lNG,NWINGrHALFBH^YCN^CTIP^CTX,IWGLT^IPOS^KZ) 

DIMENSION AWd)^ CA(1), GAMMA(I), BREAK(I) 

DIMENSION SWP(10^15)» CTIP(I) 

DIMENSION 6(10^2)/ CHORDT(I)^ YCN(1) 

DIMENSION A(15)/. F(15)^ THETAdS) 

COMMON /GEOM/ HALFSW^XCP(200)/YCP(200)/’ZCP(200)/XLE(100>^YLfc(10U)^ 
1XTE(100)^PSI<30),CH(100)^XV(200)^YV(200)/SN(10 x3)/XN(200#2)^YN{20G 
2^2)#ZN(200^2)#.WIDTH(7)^YC0N(51)#SWEEP(100)^HALFB^SJ(31/7) 

COMMON /AERO/ AM /.B ^ C L ( 50 ) ^ C T ( 5 0 ) /• C D ( 50 ) / C M ( 50 ) 

COMMON /CONST/ NCS^NCW>-Ml(7)^MJWl(2^-5)^MJW2(2^5)/NJW(5)^NFP^Nw(2) 

PI=3.1 41 59265 

IPS1=IP0S/10 

IPS2»I PCS~ IPS1 *1 0 

NK = 0 

MK = LPAN1 

DO 8 I = UNCS 

NA=1 

SUMI«D« 

NWW=NUn) 

ISN=1 
FN=NW( 1 ) 

1 N1 = NWW + 1 

DO 2 J=1^NWW 
KK = NK + J 

IF <NA ,EQ. 2) K<=MK+J 
FJ = J 

THETA(J)=(2.*FJ~1»)*PI/(2**FN) 

F(J ) = GAMMA (KK) *SN( ISN) 

2 CONTINUE 

THE TA ( N1 ) = PI 
DO 4 J=1 ^N1 
A( J ) = 0. 

FJ = J 

DO 3 K=1<-NWW 

3 A( J ) = A (J ) + F(K) *COS ( ( F J-1 , ) *THETA (K) ) 

IF (J ,EQ, 1) A(J)=A(J)/FN 

I F ( J .NE. 1 ) A(J)=A(J)*2./FN 

4 CONTINUE 

DO 6 K=1#N1 
KK = NK + !< 

IF (NA ,EQ, 2) KK = MK-»-K 
SUM=A( 1 I^THETA (K ) 

DO 5 J=1#NWW 
FJ = J 

5 • SUM=SUM+A ( J+1 )*SIN(FJ*THETA(K))/FJ 

IZ = I 

IF (NA .EQ. 2) IZ=I+NCS 
SUM=-0.5*CH( IZ) *SUM+SUMI 

IF (NA . EQ. 1 . AND. K , EQ. N1 ) GO TO 6 

AW(KK) =SUM 

t:::; 6 CONTINUE 

IF (NA .EQ. 2) GO TO 7 
I F ( N C W .EQ. NW (1 ) ) GO TO 7 
NWW=NW (2) 

NA=NA+1 

ISN=ISN+1 
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)-■ 

ISJ 

00 


7 

8 


9 


10 


11 

12 


13 

14 


1 5 


FNsNUW 
SUM I=SUM 
GO TO 1 
CONTINUE 


NK=NK+NW<1 > 
MK=HK+NW<2) 

NK 1 =0 
NK2=LPAN1 
DO 38 1=1, NC 
M = M1 < I ) 

FM=M 

MM=M-1 

DO 37 J=1,NCW 
IF (IWING .NE, 0 

. AND. 

I .EQ. 

IF (I ,EQ. NO GO 

TO 9 


GO TO 10 
CONTINUE 
IW_=1 
IP2=1 



IF (I ,6T. NWING) 

IW»2 


IF (I .GT. NWING) 

IPZ = 3 


G( J,IW)=0« 

CONTINUE 
IK = 0 
IS = 0 

HAB=HALFB 
AA=-1 » 

BB= 1 . 

FT=1. 

BR = BREAX{I ) 

IF (J .GT. NW(D) 

GO TO 

1 5 

NK=NK1 
LK = 0 
IR1 =I 
JJ = J 

MK = NWn ) 

IF (I ,GT. NWING) 

GO TO 

1 1 

IF <IPS1 -EQ. 2) 

IS = 1 


IF (IPS1 .EQ. 1) 

GO TO 

12 

IF (IPS1 .EQ. 2) 

GO TO 

13 

GO TO 17 

IF ( I PS2 .EQ. 1 ) 

GO TO 

14 

HAi=HALF6H 
IF UWGLT .EQ. 2) 

HAB = WI OTH( I ) 

IF (IWGLT ,EQ. 2) 

BR = 0. 


GO TO 17 



HAB=HALFB 

GO TO 17 

HC=HALFBH-HALFB 

AA = HAL FB/HC 

BB=HALFBH/HC 

HAB=HC 

IK=1 

FT = 2, 

GO TO 17 
NK=NK2 
MK=Ny (2) 


NWING) 


GO TO 


9 
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LK=NW ( 1 ) 


R 

1 1 5 


IR1 =I+NC 


R 

1 1 6 


JJ=J-NW(1 ) 


R 

1 1 7 


IF (I .6T. NWING) 60 TO 16 


R 

1 1 8 


IF (IPS1 .EQ. 1) IS=1 


R 

1 1 9 


IF (IPS1 .EQ. 1 ) GO TO 13 


R 

1 20 


IF (IPS1 .EQ. 2) 60 TO 12 


R 

1 21 


GO TO 17 


R 

1 22 

16 

IF (IPS2 .EQ. 2) GO TO 14 


R 

123 


GO TO 12 


R 

1 24 

17 

IF (J.EQ. 1 .OR. J .EQ, (NW(1)+D) GO TO 18 


R 

125 


GO TO 20 


R 

1 26 

18 

CONTINUE 


R 

127 


DO 19 JP=1irMH 


R 

1 28 


FJ = JP 


R 

1 29 


YCON( J P) = COS (FJ*PI /FM) 


R 

1 30 


Y=0.5*WI0TH( I)*(1.-yC0N(JP) )+BR 


R 

131 

19 

PSI (JP) = S9RT < tBB-Y/Hfl.B)*( Y/HA8-AA1 ) *FT 


R 

132 

20 

CONTINUE 


R 

1 33 


L1=NK+J-LK 


R 

1 34 


L2*L1 +MK 


R 

1 35 


L3=L2+MK 


R 

1 36 


SP=SWP (J J ^ IR 1 ) 


R 

1 37 


CS=COS (SP) 


R 

1 38 


TAN=SI N(SP)/CS 


R 

1 39 


SM = 0. 


R 

1 40 


IF (IK .EQ. 1) GO TO 23 


R 

141 


DO 22 LQ=UMM 


R 

1 42 


LP=L1 + (LQ-1 ) *MK 


R 

1 43 


AA=1. 


R 

1 44 


DO 21 LS=1#MN 


R 

145 


LN=L1 + (LS-1 ) *MK 


R 

1 46 


IF (LS .EQ. LQ) GO TO 21 


R 

147 


AA= AA* (BREAK(I)-YCP(LN))/(YCP(LP)-YCP(LN)) 


R 

1 48 

21 

CONTINUE 


R 

149 

22 

SM=SM+AA*AW(LP) *PSI (LQ) 


R 

1 50 


GAMAO=SM 


R 

1 51 


GO TO 24 


R 

1 52 

23 

GAMA0=0, 


R 

1 53 

24 

CONTINUE 


R 

1 54 


IF (IS .EQ. 1) GO TO 27 


R 

1 55 


IF (I WING . NE. 0 .AND. I .EQ. NWING ) GO TO 27 


R 

1 56 


IF (I .EQ. NO GO TO 27 


R 

1 57 


SM = 0. 


R 

1 58 


DO 26 LQ=UMM 


R 

1 59 


LP = L1 + (LQ-1)>MK 


R 

1 60 


AA = 1. 


R 

1 61 


DO 25 LS=1 


R 

1 62 


LN=L1 + (LS-1 ) *MK 


R 

1 63 


IF (LS .EQ. LQ) GO TO 25 


R 

1 64 


AA=AA* (BREAK (1+1 )-YCP(LN))/(YCP(LP)-YCP(LN)) 


R 

1 65 

25 

CONTINUE 


R 

1 66 

26 

SM=SM+AA*AW(LP)*PSI (LQ) 


R 

1 67 


GAM AN=SM 


R 

1 68 


GO TO 28 


R 

1 69 

27 

GAMAN=0. 


R 

1 70 

28 

DO 32 K=1 


R 

1 71 



!-■ 

U) 

O 


29 

30 


31 

32 

33 


34 

35 

36 

37 

38 


LL*NK+(K-1 )*MK+J-LK 


CA(LL)«0. 

00 30 

LIsNK+(KK-1)*MK+J-LK 
IF (KK ,EQ. K) GO TO 29 
CA(LL)=CA(LL)+2.*(-1,)**(K+KK)* 
1 K)-YCON(K) )) 


Ay(LI)*PSI(KK)/<WI0TH(I)*<YCON<K 


GO TO 30 
CA(LL)*CA(LL>+ 


AW(LL)*PSI(K)*YCON(K)/(WIOTH(I>*SJ(</I)*SJ(K^I)) 


CONTINUE 

IF (IK .EQ, 0) FK=YCP(LL) / (HAB*HAB) 

IF (IK .EQ. 1) FK*-(1.-2.*(YCP(LL)-HALF3)/HA3)/0.5*HAB> 

CA(LL )=CA(LL) + GAMA0*(-1. ) **K / ( 1 . -Y C ON ( K ) ) / W I DT H ( I ) -GAM A N*( -1 . ) * * ( M 
1+K)/(1.+YC0N(K))/WIDTH(I)+AW(LL)*FK/PSI(K) 

CA(LL)*CA(LL)/PSI(K> 

IF (IUIN6 .NE. 0 .AND. I .EQ. NWING) GO TO 31 
IF (I .EQ. NO 60 TO 31 
GO TO 32 
CONTINUE 

IF (CHORDT(IPZ) ,LE. 0.001) GO TO 32 

G(J#IW)*6(J#IW)+AW(LL)*PSI(K)*(-1.)**(K+M)/(1.+YC0N(K)) 

CA (LL)sTAN*6AMMA (LL)+CA(LL) 

IF (J .EQ. NW(1)) NK1=LL 
IF (I .EQ. NO GO TO 33 

IF (IUIN6.NE .0 . AND. I, EQ. NWING) 60 TO 33 

60 TO 37 

CONTINUE 

IF (CHOROTUPZ) .LE. 0.001) GO TO 37 

6(J#IU)»2./WIDTH (I )*6( J^IU) 4^0. 5* (-1 . ) **H*GAHAO/ WI D TH( I ) 

IF (IK .EQ. 0) 6(J#-IW)sG(J^IW)*SQRT(HAB)/2. 828427124 
IF (IK .EQ. 1 ) G(J #IW) = G(J /I W)*SQRT (HAB) /4. 

IF (IW.EQ.2) CM( J)»G(J/IW) 

IF (IW.EQ.2) GO TO 37 
IF (IWING.NE.O) GO TO 35 
CL(J)*G(J^IW) 

60 TO 37 

IF (IPS1.EQ.2.AND.J.GT.NW(D) GO TO 36 
IF (IPS1.EQ.1) GO TO 36 
60 TO 34 
CL( J)«0. 


CONTINUE 

NK2=LL 


CONTINUE 

IF (KZ.EQ.1) RETURN 
CTP=0. 

CTX s 0. 

SUMM * 0. 

DO 42 K=1#IW 
CTIP(K)=0. 

IPZ=1 

TF (X F Q TP7*'? 

IF (CHORDT ( IPZ) .LE. 0.001 ) GO TO 42 
SUM*0. 

ISN*1 
FN»NW( 1 ) 

CHDsCHORDT(IPZ) 

DO 41 1*1 #NCW 

FC R*1 . 
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R 1 98 

R 1 99 
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IF (6( I/K) .LT.O. ) FCR=-1. 

J = I 

Xl = YCNCIPZ ) 

IF (K .EQ. 2) GO TO 39 

IF (IPST .EQ. 2 .AND. I .GT. NW(D) GO TO 41 
IF (IPS1 .EQ, 1) GO TO 41 

39 CONTINUE 

IF (I .LE. NW(1 )) GO TO 40 
ISN = 2 
FN=NW (2) 

J=I-NW (1 ) 

X1=YCN(IP2+1 ) 

CHD=CHORDT (I PZ + 1 ) 

40 FJ = J 

XM = XI + 0. 5*CHD* ( 1 ,-COS ( <2. * FJ - 1 . ) * P I / ( 2, * F N) ) ) 
SUM=SUM+CHD*G(I#-K)*G<I<-K)*SN(J^ISN>*FCR/FN 
SUMM=SUMf1+CHD*XM*G( I <^K)*G(I#K)*SN(J^ISN)*FCR/FN 

41 CONTINUE 
CTX=SUM+CTX 

CTIP((0=SUM*PI*PI/(2.*HALFSW) 

CTP=CTP+CT IP (K ) 

42 CONTINUE 

IF (ABSCCTX) .LE.O.OnOOl) GO TO 43 

IF (CHORDT (1 ). GT. 0.001 .OR, C HO R DT ( 3 ) . GT , 0,001) CTX=SUMMZCTX 

43 CONTINUE 
CTX=-CTX 
RETURN 

C 

END 
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SUBROUTINE SPLINE ( N ^ X # Y ^ A , 3 , C ^ D , L M , N T ) 

DIMENSION S( 43 )^ H ( 1 3 ) <- CA( 12 )^ X( 3 <- 12 ), Y( 3 , 12 ) 

DIMENSION A( 3#11 ), B ( 3/.1 1 ) ^ C ( 3 ^ 1 1 ) /- D( 3 , 11 ) 

L = LM 

DO 9 NN= 1 #NT 
1 = 1 

NI =N +1 
N 1 =N -1 
H(NI)=n. 

H (1 ) = X(L^- 3 )-X(L, 2 ) 

H( 2 )=-a(L^ 3 ) +X (L, 1 ) 

H( 3 )=X(L^ 2 )“X(L^ 1 ) 

DO 1 K= 4 #N 

1 H(K)=D» 

DO 2 K= 1 ^N 

2 S f K )=-H(K+ 1 ) /H (1 ) 

NJ =N -1 

DO 7 I= 2 ^N 

IF (I .EQ« N) GO TO 3 

H(NI) = - 6 ,*^((Y(L,I+ 1 )-Y(L/I))/(X(L*’I + 1 )-X(L^I))-(Y(L/I)-Y(L/I- 1 ))/ 
1 (X ( L<f I )-X ( 1-1 ) ) ) 

GO TO 4 

3 H(NI)= 0 . 

4 DO 6 J = UN 
H( J )=3 . 

IF (I .EQ. M) GO TO 5 

IF (J ,LT. ( 1 - 1 ) .OR. J . 6 T. (I + D) GO TO 6 
H( 1 - 1 ) =X (L^I )-X (L# 1-1 ) 

H(I) = 2 .*(X(L<.I+ 1 )-X(L#I- 1 )) 

H( 1+1 )=X(L/-I +1 )-X(Li»I) 

GO TO 6 

5 H(N- 2 )=X(L^N)-X(L^N- 1 ) 

HCN -1 ) =-X (L,N) +X (L#N- 2 ) 

H( N)=X (L^N- 1 ) -X (L#N- 2 ) 

6 CONTINUE 
H = I 

CALL VMSEQN ( N J ^ 1 1 # H ^ S C A ) 

NJ = NJ -1 

7 CONTINUE 

DO 8 I = UN 1 

A(L/I)=(S(I+1)-S(I))/(6.*(X(L/I+1)-X(L/I))) 

B(L^I)=S(I )/?. 

C(L^I)=(Y(L>.I + 1)-Y(L^I))/(X(L,I+1)-X(L#I))-(X(L/.I + 1)-X(L<.I))*(2.* 
1 S( I )+S (1+1 ) ) /6. 

8 D(L^I)=Y(L^I) 

9 L = L +1 
RETURN 
END 
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